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This publication gives the programmer the rules for 
writing programs that are to be compiled by the IBM 
DOS/VS COBOL and IBiVI Full American National Standard 
COBOL compilers under the Disk Operating System. It is 
meant to be used as a reference manual in the writing 
of IBM Full American National Standard COBOL programs. 

COBOL (common Business Oriented Language) is a 
programming language, similar to English, that is used 
for commercial data processing. It was developed by 
the Conference On DAta SYstems Languages (CODASYL) . 
The Standard of the language is American National 
Standard COBOL, X3. 23-1968, as approved by the American 
National Standards Institute (ANSI) . American National 
Standard COBOL is compatible with, and identical to 
international standard ISO/R1989-1972, Programming 
Language COBOL. 

IBM DOS/VS COBOL and IBM DOS Full American National 
Standard COBOL, Version 3, which include all the 
features of earlier versions, incorporate tne eight 
processing modules defined in the highest level of the 
American national standard. These modules include: 

Nucleus 

Table Handling 

Sequential Access 

Random Access 

Sort 

Report Writer 

Segmentation 

Library 

A significant number of IBM extensions are implemented 
as well; these extensions are printed on a shaded 
background. 
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PREFACi; 



This publication describes the IBM 
implementation of Full American National 
Standard COBOL, and all IBM extensions to 
that standard. Some statements are 
extensions to either American National 
Standard COBOL or to both American National 
Standard COBOL and the complete definition 
of CODAS YL COBOL. 



In this publication, the term standard 
COBOL means American National Standard 
COBOL; the term IBM Full American National 
Standard COBOL means this IBM 
implementation of American National 
Standard COBOL and all extensions to that 
standard. There are two types of 
extensions: 

1. Those that represent features not 
specified by American National 
Standard COBOL. 

2. Those that represent an easing of the 
strict American National Standard 



COBOL rules and allow for greater 
programming convenience. 



All such extensions are printed on a shaded 
background for the convenience of users who 
wish strict conformance with the standard. 
Use of features that are extensions to the 
standard may result in incompatibilities 
between the implementation represented by 
this document and other implementations. 
If a complete chapter is an extension, only 
the page heading is shaded. These chapters 
are: 
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Seventh Edition (April 1976) 

This edition is a reprint of GC28-6394-5 incorporating changes released in Technical Newsletter 
GN 26-0801 (dated November 1, 1975). 

This edition, as amended by Technical Newsletter GN26-0887, describes Version 2 of IBM DOS Full 
American National Standard COBOL at the Release 26 level of the Disk Operating System. It also 
describes the Program Product Version 3, Release 3, including amended System/370 device support, and 
Release 2 of the Program Product DOS/VS COBOL. 

Information in this publication is subject to significant change. Therefore, before using this 
publication, consult the latest IBM System/360 Bibliography, GC20-0360, and IBM System/370 
Bibliography, GC20-0001, and the technical newsletters that amend the bibliography, to learn 
which editions and technical newsletters are current and apphcable. 

Requests for copies of IBM publications should be made to your IBM representative or to the 
IBM branch office serving your locality. 

Forms for readers' comments are provided at the back of the publication. If the forms have 
been removed, comments may be addressed to IBM Corporation. P.O. Box 50020, Programming 
Publishing, San Jose. California 95150. Comments and suggestions become the property of IBM. 

© Copyright International Business Machines Corporation 1968, 1969. 1970. 1971. 1972. 1973 



For the less experienced programmer, the 
introduction siammarizes the general 
principles of COBOL, highlights features of 
Ainerican National Standard COBOL, and, 
through an example, illustrates the logical 
sequence and interrelationship of commonly 
used elements of a COBOL program. The 
balance of the publication gives the 
specific rules for correct programming in 
IBM Full American National Standard COBOL, 
as implemented by the System/360 Disk 
Operating System. Appendixes provide 
supplemental information useful in writing 
COBOL programs. Appendix A describes the 
use of intermediate results in arithmetic 
operations; Appendix B contains several 
sample programs showing the use of mass 
storage files; Appendix C lists all of the 
formats and reserved words in IBM Full 
American National Standard COBOL; Appendix 
D is a file processing summary; Appendix E 
gives considerations for the use of ASCII 
encoded files; Appendix F explains the 
symbolic debugging feature; Appendix G 
explains combined function card processing. 



understanding of this publication- Such 
information, as it applies to System/3b0, 
can be found in the following publications: 

Introduction to IBM Data Processing 
Systems , Order No. GC20-168U 

Introduction to IBM System/360 Direct 
Access Storage Devices and Organization 
Methods , Order No. GC20-1649 



The reader should also have a general 
knowledge of COBOL before using this 
manual. Useful background information can 
be found in the following publications: 

American National Standard COBOL Coding : 

Card And Tape Applications Text , Order 
No. SR29-0283 

Coding Techniques And Disk Applications 
Text, Order No. SR29-028U 



Compiler output and restrictions, 
programming examples, and information on 
running an IBM American National Standard 
COBOL program are found in the publication 
IBM DOS Full American National Standard 
COBOL Programmer's Guide , Order 
No. GC28-6398 and in the Program Product 
publications: 

IBM DOS Full American National Standard 
COBOL Compiler and Library, Version 3, 
Programmer's Guide , Order No. SC28-6U41 

IBM DOS/VS COBOL Compiler and Library 
Programmer's Guide , Order No. SC28-6U78 

These programmer's guides and this 
language reference manual are corequisite 
publications . 

A knowledge of basic data processing 
techniques is mandatory for the 



Illustrations , Order No. SR29-0285 

Student Reference Guide , Order 
No. SR29-0286 

Where information in the foregoing 
publications conflicts with information in 
this publication, the contents herein 
supersede any other in the writing of COBOL 
programs. Any violation of the rules 
defined in this publication for using the 
Disk Operating System is considered an 
error. 

A general knowledge of the IBM Disk 
Operating System is desirable, although not 
mandatory. The following publication gives 
such information: 

IBM System/360 Disk and Tape Operating 
System: Concepts and Facilities , Order 
No. GC24-5030. 
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Summary of Amendments Number 10 



Date of Publication: Decembers, 1976 

Form of Publication: TNL GN26-0887 to GC28-6394-4, -5, -6 



IBM DOS COBOL 

Maintenance: Documentation 

• Minor technical changes and additions have been made to the text. 



Summary of Amendments Number 9 



Date of Publication: March 15, 1974 

Form of Publication: TNL GN28-1062 to GC28-6394-4 



IBM DOS/VS COBOL 

New: Programming Features 

• SORT-OPTION clause for Sort and Merge Features 

• 5425 MFCU Support 

Maintenance: Documentation only 

Minor technical changes and corrections to update the documentation to 
Release 2 

IBM DOS Full American National Standard COBOL, Versions 2 and 3 

Maintenance: Documentation only 

• 5425 MFCU support deleted 

• Minor technical changes and corrections 



Editorial changes that have no technical significance are not noted here. 

Specific changes to the text made as of this pubUshing date are indicated by a vertical bar to the 
left of the text. These bars will be deleted at any subsequent republication of the page affected. 



Summary of Amendments Number 8 



Date of Publication: October 15, 1973 

Form of Publication: TNL GN28-1047 to GC28-6394-4 



IBM DOS/VS COBOL 

New: Programming Features 

• Merge Facility 

New: Documentation only 

• Miscellaneous File Processing Considerations 

Maintenance: Documentation only 

Minor technical changes to update the documentation to the initial release level. 

IBM DOS Full American National Standard COBOL, Versions 2 and 3 

Maintenance: Documentation only 
Minor technical changes and corrections. 



Editorial changes that have no technical significance are not noted here. 

Specific changes to the text made as of this pubUshing date are indicated by a vertical bar to the 
left of the text. These bars will be deleted at any subsequent repubUcation of the page affected. 



Summary of Amendments Number 9 



Date of Publication: March 15, 1974 

Form of Publication: TNL GN28-1062 to GC28-6394-4 



IBM DOS/VS COBOL 

New: Programming Features 

• SORT-OPTION clause for Sort and Merge Features 

• 5425 MFCU Support 

Maintenance: Documentation only 

Minor technical changes and corrections to update the documentation to 
Release 2 

IBM DOS Full American National Standard COBOL, Versions 2 and 3 

Maintenance: Documentation only 

• 5425 MFCU support deleted 

• Minor technical changes and corrections 



Editorial changes that have no technical significance are not noted here. 

Specific changes to the text made as of this publishing date are indicated by a vertical bar to the 
left of the text. These bars will be deleted at any subsequent republication of the page affected. 



Summary of Amendments Number 8 



Date of Publication: October 15, 1973 

Form of Publication: TNL GN28-1047 to GC28-6394-4 



IBM DOS/VS COBOL 

New: Programming Features 

• Merge Facility 

New: Documentation only 

• Miscellaneous File Processing Considerations 

Maintenance: Documentation only 

Minor technical changes to update the documentation to the initial release level. 

IBM DOS Full American National Standard COBOL, Versions 2 and 3 

Maintenance: Documentation only 
Minor technical changes and corrections. 



Editorial changes that have no technical significance are not noted here. 

Specific changes to the text made as of this publishing date are indicated by a vertical bar to the 
left of the text. These bars will be deleted at any subsequent republication of the page affected. 



Summary of Amendments Number 4 



Date of Publication: May 15, 1972 

Form of Publication: TNL GN28-0489 to GC28-6394-2 

IBM DOS Full American National Standard COBOL, Version 3 

New: Programming Features 

• Added System/370 device support: 2319,3211,3330,3410,3420,3505, 
3525 

New: Documentation Only 

• Symbolic Debug example 

• 3525 Combined Function Processing 

Miscellaneous Changes for Versions 2 and 3 

Maintenance: Documentation only 

Minor technical changes and corrections 



Summary of Amendments Number 3 

Date of Publication: April 15,1971 

Form of Publication: TNL GN28-0436 to GC28-6394-2 

IBM DOS Full American National Standard COBOL, Version 3 

New: Programming Features 

• ASCII Tape file processing 

• SIGN clause implementation 

• OBJECT-COMPUTER paragraph requests System/370 instructions 

• ON statement enhancement 

Miscellaneous Changes for Versions 2 and 3 

Maintenance: Documentation only 

• PICTURE clause description and table of precedence 

• USAGE clause description 

• Minor technical changes and corrections 

• Added device support 



Summary of Amendments Number 2 

Date of Publication: January 1970 

Form of Publication: Revision, GC28-6394-2 

IBM DOS Full American National Standard COBOL, Version 2 

Maintenance: Documentation only 
Minor technical changes and corrections 

Summary of Amendments Number 1 

Date of Publication: July 1969 

Form of Publication: Revision, GC28-6394-1 

Miscellaneous Changes 

New: Documentation only 

• Table Handling clarifications 

• Table Handling sample program 

Maintenance: Documentation only 
Minor technical changes and corrections 
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Special DOS/VS COBOL considerations are discussed in the following 
pages- Implementation areas described are: 

• WHEN-COMPILED Special Register 

• The Configuration Section 

• VSAM (Virtual Storage Access Method) Processing 

• Merge Facility — with SORT-OPTION clause 

• 3886 OCR (Optical Character Reader) Processing 

• PIPS (Federal Information Processing Standard) Flagger 

• Miscellaneous File Processing considerations 

DOS/VS COBOL supports all of the additional features described in 
this chapter. Support for these features is provided through a subset 
of the complete COBOL language as documented in CODASYL COBOL Journal Of 
Development . IBM-specified language capabilities are also implemented. 
All features of DOS Full American National Standard COBOL, Version 3, 
continue to be supported. 

Compiler output and restrictions,, programming examples, and 
information on running an IBM DOS/VS COBOL program are found in the 
following Program Product publication: 

IBM DOS/VS COBOL Compiler and Library Programmer's Guide , Order 
No. SC28-6478 

Additional information on DOS/VS can be found in the following 
publications : 

Introduction to DOS/VS , Order No. GC33-5370 

DOS/VS Systems Management Guide , Order No- GC33-5371 

DOS/VS Data Management Guide , Order No. GC33-5372 

DOS/VS Access Method Services, Order No« GC33-5832 



WHEN- COMPILED SPECIAL REGISTER 

The WHEN-COMPILED special register is provided as a maintainability 
aid for the user; it makes available to the object program the 
date-and-time-compiled constant carried in the object module. 

WHEN-COMPILED is a 16-byte alphanumeric field valid only as the 
sending field in a MOVE statement. The format of these sixteen bytes is 
MM/DD/YYhh.mm.ss (MONTH/DAY/YEARhour. minute. second) or DD/MM/YYhh.mm-ss 
(DAY/MONTH/YEARhour. minute. second) , 

This special register is a programimer aid that provides a means of 
associating a compilation listing with both the object program and the 
output produced at execution time. 

DOS/VS COBOL Considerations i 



SC«mCE/OBJEae-a>MPUTPR-Paragraphs ( DOS/VS) 

CONFIGURATION SECTION 

The Configuration Section describes the computer on which the source 
program is compiled, the computer on which the object program is 
executed, and, optionally, SPECIAL-NAMES, which relate function- names 
used by the compiler with user-specified mnemonic-names , 



General Format 



CONFIGURATION SECTION . 
SOURCE-COMPUTER . computer-name. 
OBJECT-COMPUTER . computer-name 

/ WORDS 



[ MEMORY SIZE integer < CHARACTERS ■ 



(, 



MODULES ; 
[ SEGMENT- LIMIT IS priority-number] . 
SPECIAL- NAMES . [f unction-name-1 IS mnemonic- name] .o,. 
[f unction-name-2 [IS mnemonic-name] 

{ON STATUS IS condition-name-1 
OFF STATUS IS condition-name-2 

[ OFF STATUS IS condition-narae-2] ) 

[ ] ... 
[ ON STATUS IS condition-name-1] j 

[CURRENCY SIGN IS literal] [DECIMAL- POINT IS COMMA] 



The Configuration Section and its associated paragraphs are optional 
in a COBOL source program- 



SOURCE-COMPUTER PARAGRAPH 

The SOURCE- COMPUTER paragraph describes the computer upon which the 
source program is to be compiled. This paragraph is treated as 
dociamentation- 

Computer-name is a word in the form IBM-370 [-model-number]. 



OBJECT-COMPUTER PARAGRAPH 

The OBJECT-COMPUTER paragraph describes the computer upon which the 
object program is to be executed. 

Computer-name must be the first entry in the OBJECT-CCMPUTER 
paragraph. Computer-name is a word in the form IBM-370 [-model-number] . 



.- — ,~— --~1~ / m./^ r> /TTO > 



OBJtJcri'-cuEtt'uxjc.jK £-aragrap*i vDUij/y^bi 



SYSteiti/37 instructions are provided automatically by DOS/VS COBOL. 
(When IEM-360 is specified, the compiler generates System/370 
instructions, and issues a warning message.) The Compiler generates 
instructions from the SYStem/370 set, including Move Long (MVCL) , 
Compare Logical Long (CLCL) , and Shift And Round Decimal (SRP) that are 
particularly useful to COBOL. These System/37 instructions replace 
object-time subroutines and instructions that former COBOL Compilers 
generated under System/360 including routines and instructions to handle 
decimal arithmetic scaling (where operands have a different number of 
decimal places) and rounding. System/370 support also gives much 
improved processing of variable length fields. 

Since System/37 does not require boundary alignment for 
COMPUTATIONAL, COMPUTATIONAL- 1, and COMPUTATIONAL- 2 items, no moves are 
generated for items that are not SYNCHRONIZED. 

Performance Considerations ; ; Space occupied by a DOS/VS COBOL program 
is decreased, particularly when calls to object-time subroutines, are no 
longer necessary. Such calls are always generated in System/36 for 
variable-length moves and comparisons. If there is at least one 
variable-length alphanumeric move in the source program, System/370 
support reduces the size of the object program by at least 484 bytes; if 
there is at least one variable-length alphanumeric comparison, 
System/370 support reduces the size of the object program by at least an 
additional 4 98 bytes. 



I For Each Alphanumeric 
iMove: Object-program 

Number of j Instructions 

Bytes in Each |- p 

Move or I System/360 jSystera/370 

Comparison | Bytes Needed 



I For Each Comparison (in a 
[conditional expression): 
I Object-program Instructions 
.^ ^ ^ 

I System/360 | System/370 



Bytes Needed j Bytes Needed j Bytes Needed 



Variable 
length 



26+480* 



14-22 



26+496* 



16-24 



fixed length] 

1-256 I 

257-512 i 

513-768 I 

769-1024 I 

1025-1280 I 

1281-1536 I 

>4096 



6-16 

i 12-22 

I 18-28 

I 24-34 

I 30-40 

I 36-46 

I 

I 26+480* 



6-16 
12-22 
14-22 
14-22 
14-22 
14-22 

14-22 



8-26 
16-36 
24-46 
32-56 
40-66 
48-76 

26+496* 



8-26 
16-24 
16-24 
16-24 
16-24 
16-24 

16-24 



*Bytes needed to invoke object-time subroutine, plus size of 
subroutine itself. 



Figure I. Moves and Comparisons — System/36 vs. SYStem/37 

Figure I gives comparative figures without right justification for 
fixed-length and variable-length MOVE statements, and for fixed-length 
and variable-length comaprisons. 

Figure II gives comparative figures for Shift And Round Decimal 
generation; the savings shown are made for each such operation in the 
object program. 

The MEMORY SIZE clause can be used to document the actual equipment 
configuration needed to run the object program. 

The SEGMENT-LIMIT clause is discussed in the Segmentation Chapter. 
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Except for the coniputer-name entry and the SEGMENT-LIMIT clause, the 
OBJECT- COMPUTER paragraph is treated as documentation. 



r 

1 




— — ^_ - 
1 


System./360 


1 


Systein/370 


i 


Function 


i 


Bytes I'jeeded 


1 


Bytes Needed 


1— 




+— 





± 






I Rounding j 39 + literal* | 6 
I Left Scaling | 6 + literal* j 6 
I Right Scaling | 12 | 6 
1. X X ^ 

I *As used for deciiral point alignment the literal varies in length with 
I size of data-item, number of decimal positions defined, and/or 
I scaling positions defined. 

L 

Figure II. Shift And Round Decimal (SRP) — System/360 vs. System,/370 



SPECIAL- NAMES PARAGRAPH 

The SPECIAL-NAMES paragraph as discussed in the Environment Division 
chapter applies to DOS/VS COBOL without change. 



VSAM FILE PROCESSING 

VSAM (Virtual Storage Access Method) is a high-performance access 
method of DOS/VS for use with direct access storage. VSAM provides 
high-speed retrieval and storage of data, flexible data organization, 
ease of conversion from other access methods, and ease of use — 
including simplified job control statements, data protection against 
unauthorized access, central control of data management functions, 
device independence (freedom from consideration of block sizes, control 
information, record deblocking, etc.), and cross-system compatibility. 

Access Method Services, a multi-function utility program is used to 
define a VSAM data set, and optionally load records into it, convert an 
existing indexed or sequential data set to VSAM format, and perform 
other tasks as well. Access Method Services is described in DOS/VS 
Access Method Services , Order No. GC33-5832. 

VSAM allows key-sequenced and entry- sequenced data sets; records can 
be fixed or variable in length. 

In a key-sequenced data set (KSDS) , records are stored in the 
ascending collating sequence of some embedded key field. For indexed 
files of this type, records can be retrieved sequentially in key 
sequence; they can also be retrieved randomly according to the 
particular value of the key. 

In an entry-sequenced data set (ESDS) , the records are stored in the 
order in which they are presented for inclusion in the data set. New 
records are stored at the end of the data set. In COBOL, record 
retrieval for sequential files of this type must be sequential. 

VSAM files may be written on the following mass storage devices: 
2314, 2319, 3330, 3340. 

For VSAM file processing in COBOL , there are special language 
considerations in the Environment, Data, and Procedure Division. 



IV 



ENVIRONMENT DIVISION -- FILE-CONTROL PARAGRAPH 

The File-Control paragraph names the VSAM file, associates it with an 
external medium, and allows specification of other file-related 
information. 



r 1 

I General Format 1 — Sequential VSAM Files j 

^ ^ 

I 

FILE-CONTROL . 

{ SELECT [ OPTIONAL ] file -name 
ASSIGN TO sy Stem- name- 1 [system-name- 2] . . 

"AREA 

.AREAS , 
[ ORGANIZATION IS SEQUENTIAL ] 
[ACCESS MODE IS SEQUENTIAL ] 
[PASSWORD IS data-name- 1] 



[ RESERVE integer 



] 



[FILE STATUS IS data-name- 2] . } 



r 1 

I General Format 2 — Indexed VSAM Files | 

j. ^ 



FILE-CONTROL . 

{ SELECT fi le-name 
ASSIGN TO system-name-1 [system-name- 2] . . 

[AREA 
] 
AREAS . 

ORGANIZATION IS INDEXED 

( SEQUENTIAL ) 
[ACCESS MODE IS < RANDOM > ] 



DYNAMIC j 



RECORD KEY IS data-name- 3 ' ■ 

[PASSWORD IS data-name- IJ 
[FILE STATUS IS data-name-2] . } . . . 

L J 



Each file described by an FD entry or SD entry in the Data Division 
must be described in one and only one Fi 1 e-Control entry. 

The key word FILE-CONTROL may appear only once, at the beginning of 
the File-Control paragraph. The word FILE-CONTROL must begin in Area A, 
and be followe_d by a period followed by a space. 
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Each File-Control entry must begin with a SLLjlCT clause followed 
inmediately cy an ASSIGt< clause. The order in wnich the other clauses 
appear is not significant, except that for indexed VSMA files the 
PASSWORD clause, if specified, must iiritiediately follow the RECORD KEY 
clause. Each File-Control entry must end with a period followed by a 
space. 

Each data-naroe in the File-Control entry inay be qualified; it may not 
be subscripted or indexed. Each data-name must be at a fixed 
displacement from the beginning of the data description entry in which 
it appears; that is, it must not appear in the entry after an OCCURS 
DEPENDING ON clause. 



SELECT Clause 

The SELECl clause is used to name each file in the program. Each 
file described with an ?D entry or SD entry in the Data Division must be 
named once and only once as a file-name following the key word SELECl . 

FORMAT 1 : The OPTIONAL clause must oe specified for input files that 
are not necessarily present each time the object program is executed. 

If file-name represents a sort file, only the ASSIGN clause may be 
written following the SELECT clause. 



ASSIGN Clause 

The ASSIGN clause associates the file with an external storage 
medium. 

System-name specifies a system logical unit, and, optionally, a 
device class, a device number, the file organi^.ation, and the external 
name. System-name has the following structure: 

SYSnnn [-class] [-device] [-or ganiz ation] [-name]_ 

The SYSnnn field is required, and nnn must be a three-digit number 
from 000 through 240 inclusive. This number represents the symbolic 
unit to which the file is assigned. 

The class and device fields are included for compatibility only; for 
VSAM files, these fields are treated as documentation. 

The organization field is required for sequential VSAM files . The 
entry must be AS. 

The organization field must not be specified for indexed VSAM files. 

The name field is an optional three-character through seven-character 
field, specifying the external naipe by which the file is known to the 
system. If name is not specified, the symbolic unit (SYSnnn) is used as 
the external name. The name field must be specified if more than one 
file is assigned to the same symbolic unit. 



RESERVE Clause 



The RESERVE clause is treated as documentation. 



VI 



VSAM OKGANIZATION/ACCESS MODE/RECORD KEY Clauses (DO-S/VS) 
ORGANIZATION Clause 

The ORGANIZATION clause specifies the logical structure of the file» 
The file organization is established at the time the file is defined and 
cannot subsequently be changed- 

FORMAT 1 : If the ORGANIZATION clause ig o mitted, ORGANIZATION^ 
_SEQUENTIAL i s assumed. " ' " ' 

When ORGANIZATION SEQUENTIAL is specified or assumed, the records in 
the file are positioned sequentially in the order they were created. 
Once established, the position of the file records does not change. 

FORMAT 2 : When ORGANIZATION INDEXED is specified, each logical record 
in the file contains an embedded RECORD KEY which is associated with an 
index, and each record is identified through its RECORD KEY value. 
After records have been updated, or have been added to or deleted from 
the file, the position of the records may have changed. 



ACCESS MODE Clause 



The ACCESS MODE clause specifies the manner in which records in the 
file are to be processed. 

When the ACCESS MODE clause is omitted, ACCESS MODE SEQUENTIAL is 
assumed. 



When ACCESS MODE SEQUENTIAL l is specified or assumed, the records are 
processed sequentially. That is, the next logical record in the file is 
the next processed, ' 

When pRGANIZATTON TS SEQUENTIAL is specified or assumed, the records 
in the file are processed in the seqiience f^ci-hahi i gh^^r^ ^j hpn -^lip^ file was 
crea t ed _o r extended- 

When ORGANIZATION IS INDEXED is specified, the records in the file 



FORMAT 2 ; For indexed VSAM files, ACCESS MODE RANDOM and ACCESS MODE 
DYNAMIC can also be specified. 

When ACCESS MODE RANDOM is specified, the sequence in which records 
are processed is determined by the sequence in which record keys are 
presented. The desired record is accessed bv placing the value of its 
key in the RECORD KEY data item before the associated input/output 
statement is executed. 

When J^CCESS MODE DYNAMIC is specified, records in the file are 
processed either sequentially and/or randomly. The form of the specific 
input/O Utpnt r*^qnog-H r^^-Hpi-n]-) ]^f>c; i-h<=> ^r^ne^Pjc^ m';>dff- 



RECORD KEY Clause (Format 2) 

V — 

The RECORD KEY clause specifies the data item within the record which 
contains the key for that record. A RECORD KEY must be specified for an 
indexed VSAM file. 

Data-^name-3 is the RECORD KEY data item. Data-name-3 must be defined 
as a fixed length alphanumeric or unsigned external-decimal numeric data 
item within a record description entry associated with file-name . 
Data-name-3 is treated as an alphanumeric item., 
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The value contained in data-naicie-3 must be unique among records in 
the file. 

The data description of data-name- 3 and its relative location in the 
record must be the same as that specified when the file was defined. 

PASSWORD Clause ■• 

The PASSWORD clause controls object-time access to the file- 

Data-name-1 is the password data item; it must be defined in the 
Working-Storage Section as an alphanumeric item« The first 8 characters 
are used as the password; a shorter field is padded with blanks to 8 
characters. The password data item must be equivalent to the one 
externally specified. 

When the PASSWORD clause is specified, at object time the password 
data item must contain the valid password for this VSAM file before the 
file can be successfully opened. (See "Status Key" in the following 
Common Processing Facilities description.) 

FILE STATUS Clause 

The FILE STATUS clause allows the user to monitor the execution of 
each input/output request for the file. 

Data- name- 2 j.s the Status Key data item. Data-name- 2 must be defined 
in the Data Division a s a two-character alphanumeric or unsigned "" " 
external -decimal numeric item. Data-name-2 must not J3e. defined in the 
File Sectio n or the Report Sectio n. Data-na"me-2 is treated as ^n 
alphanumeric Ttem. 

When the FILE STATUS clause is specified, a value is moved into the 
Status Key by the system after each input/output request that explicitly 
or implicitly refers to this file. The value indicates the status of 
the execution of the statement- (See "Status Key" in the following 
Common Processing Facilities description.) 

ENVIRONMENT DIVISION — I-0-CONTROL PARAGRAPH 

The I-0-CONTROL paragraph specifies the special input/output 
techniques to be used in the program. The I-0-CONTROL paragraph and its 
associated clauses are optional- 

r T 

I General Format — VSAM Files | 

|. _ ^ 

I-0-CONTROL . 

[ RERUN ON system-name EVERY integer RECORDS 

OF file-name-1] 

[ SAME [RECORD] AREA 

FOR file-name-2 [f ile-name-3] .,.] ... . 

L J 

The key word l-0-CONTROL must begin in Area A and be followed by a 
period and a space„ 
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RERUN Clause 

System-name is specified as described in the Environment Division 
chapter ; the checkpoint file mi i?t ^^ ^ g-hanri art^ sequential file (it may 
not be a se quentia l VSAM file). The device field may not specify 3540. 

File- name may specify a VSAM file. 



SAME Clause 

The SAME RECORD AREA clause for VSAM files is implemented as 
described in the Environment Division chapter. 

For VSAM files, the SAME AREA clause has the same meaning as the SAME 
RECORD AREA clause. 



DATA DIVISION — FD ENTRY 

In the FD entry for a VSAM file, the RECORD CONTAINS clause is 
implemented as described in the Data Division chapter . 

The P!T.nrT? rnNTATN.q. data RECORDS , and VALUE OF clauses, are treated 
as documentation for VSAM files. 

The RECORDIN G MODE and REPORT c lauses must not be sp ecifi ed for VSAM 
files, ' ' "^ " 

There are special considerations for the LABEL RECORDS clause. 



LABEL RECORDS Clause 



The LABEL RECORDS clause specifies whether standard labels are 
present or omitted, and serves only as documentation. 



Format 



1 



/ RECORD IS ) / STANDARD ) 

LABEL I \ ) \ 

I RECORDS are! ( OMITTED j 



■ For VSAM files , j^i-i-Vitar- the STANDARD or the pNilTTED option mav be 
specified. Either option is treated as dociamentation. 

The LABEL RECORDS clause is required in every FD entry. 



PROCEDURE DIVISION 

For VSAM files, there are several Common Processing Facilities that 
apply to more than one input/output statement. These Coirmon Processing 
Facilities are discussed before the descriptions of the separate 
input/output verbs. 
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Common Processing Facilities 



^ CURRENT ,RECORD POINTER ; Conceptually, the Current Record Pointer 

specifies the next record to be accessed by a sequential request. The 
setting of the Current Record Pointer is affected only by the OPEN . 
START , and READ Statements. The concept of the Current Record Pointer 

#»» has n o m eanin g for random acces s or for output files. 

^ STATUS KEY ; If the FILE STATUS clause is specified in the File Control 
Entry, a value is placed into the specified Status Key (the 2-character 
data item named in the FILE STATUS clause) during execution of any 
request on that file; the value indicates the status of that request. 
The value is placed in the Status Key before execution of any Error 
Declarative or INVALID KEY/AT END option associated with the request- 

The first character of the Status Key is known as Status Key 1; the 
second character is known as Status Key 2. Combinations of possible 
values and their meanings are shown in Figure III. See the DOS/VS 
Programmer" s Guide for more information. 



9^%^m^my^^ -'i^^ja^ttas iBOS/vsl - 



Etatms Key 1 
value 



Meaning 



I 



Successful 
Completion 



Cj^^. 



At End (no next 
logical record, or 
an OPTIONAL file not 
available at OPEN __ 
time) 



r.'S0 



status Key 
Value 



Meaning 



No Further 
Information 



No Further 
Information 



Invalid Key 



Sequence Error 



Duplicate Key 
No Record Found 



Boundary Violation 
(indexed VSAM file) 



I- 



Permanent Error 
(data check, parity 
check, transmission 
error) 



No Further 
Information 



Boundary Violation 
(sequential VSAM 
file) 



IBM-defined 



Password Failure 



-+- 



-+- 



Logic Error 



I Resource Not 
I Available 



I No Current Record 

[Pointer For 

I Sequential Request 



i Invalid or incomplete 
I File Information 
4 

I No DLBL card 



User-defined 



1-9 I Reserved for user 
A-Z I purposes 



Figure III. ^tatus Key Values and Their Meanings ^ 
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VS AM Gommon P roces s ing F aci 1 i t i e s ( DOS/VS ) 

IIWALID KEY CONDITION ; The INVALID KEY condition can occur during 
execution of a START , READ, WRIT E, REWRITE, OR DELETE Statement. (for 
details of the causes for the condition, "see documentation for those 
statements.) When the IIWALID KEY condition is recognized, the 
following actions are taken in the following order: 

1. If the FILE-STATUS clause is specified, a value is placed into the 
Status Key to indicate an INVALID KEY condition. 

2. If the INVALID KEY option is specified in the statement causing the 
condition, control is transferred to the INVALID KEY 
imperative— statement = Any EXCEPTIO N/ ?^pR O^ declarative procedu re 
specifie d ^or this fil e i . s not e xecute d. 

but 

3. If the INVALID KEY option is not snecified . but an EXCEPTION/ERROR 
declarative p^rocedure is specified for the file, the 

^ F. ^^EPT TDN/TTRTjnR pr-nr- edure Js executed. 

When an INVALID KEY condition occurs, the inr)ut/nnt p^^-^ gj- ^^temf^r^t which 
caused the condition is unsuccessful . 

INTO/FROM IDENTIFIER OPTION ; This option is valid for READ, REWRITE , 
and WRITE statements. ' 

The INTO identifier option makes a READ statement equivalent to 

READ file-name 

MOVE record-name TO identifier 

After successful execution of the READ statement, the current record 
& becomes available both in the record-name and identifier. 

•— ^— I I II I III IK*' 

The FROM identifier option makes a REWRITE or WRITE statement 
equivalent to 

MOVE identifier TO record-name 

REWRITE^ 

\ record-name 
WRITE ) , . 

After successful execution of the WRITE or REWRITE statement, the 
current recor d ma y n o longer be ava ilable in record-name^ but is s tills 
fe^ available in identifier . 

In all cases, identifier must be the name of an entry in the 
Working- Storage Section, the Linkage Section, or of a record description 
for another previously opened file. Record-name/file-name and 
identifier must not refer to the same storage area. 



EXCEPTION/ERROR Declarative 

The EXCEPTION/ERROR Declarative specifies procedures for input/output 
exception or error handling that are to be executed in addition to the 
standard system procedures. 
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VSAM E5K:EPTI0N/EKRQR Declarative (J?OSArS) 



f 



I Format | 

|. -_ -: _ _ ____ ^^ ^ 



EXCEPTION 



Ipk 



USE AFTER STANDARD ^ V PROC EDURE 

ERROR \ 

file-name-l [file-name- 2] 
INPUT 
ON ^ OUTPUT 
I-O 
EXTEND 

L : . : L J 

.A USE statement , when present, must immediately follow a ^ secti-On . 
header in the Declaratives spr-rion (?ie^<^ "np^r-iarati vp^.q" in the Procedure 
Division chapter) . A USE statement must be followed by a period 
followed Dy a space. The remainder of the Section must consist of one 
or more procedural paragraphs that specify the proccedures to be used. 

The USE statement itself is n ot an executab le atatement ; it merely 
defines the conditions tor execution of the procedural paragraphs. 

The words EXCEPTION and ERROR are synonymous and may be used 
interchangeably . 

When the file-name option is specified, the procedure is executed 
only for the file(s) named. Appearance of a file-name must not cause 
simultaneous requests for the execution of more than one EXCEPTION/ERROR 
procedure. No file-name can refer to a sort file. 

When the jNPUT option is specified, the procedure is executed for all 
files opened in INPUT mode. 

When the OUTPUT option is specified, the procedure is executed for 
all files opened in the OUTPUT mode. 

When the I-O option is specified, the' 'procedure is executed for all 
files opened in I-O mode. 

When the EXTEND option is specified, the procedure is executed for 
all files opened in EXTEND mode. 

The ^XCEPTION/ERROR ^ocedure is executed^ 

• Either after comipleting the standard system input/output error 
routine, or 

• Upon recognition of an liJVA.LID KEY or AT END condition when an 
INVALID KEY or AT END option has not been specified in the 
input/output statement, or 

• Upon recognition of an IBM-defined condition which causes status key 
1 to be set to 9. 

After execution of the EXCEPTION/ERROR procedure, control is returned 
to the invoking routine . 

The EXCEPTION/ERROR procedures are activated when an input/output 
error occurs during execution of a READ . WRITE . REWRIT E , START . or 
DELETE statement. g^ 1^ — — — . 

If an , OPEN statement is issued for a_ file already i n the open status . 
the EXCEPTION/ERROR procedures are activated; when the execution of an 
OPEN statement is unsuccessful due to any other cause, the 
EXCEPTION/ERROR procedures are not activated. 



Xll 



If a file is in the OPEN status, and the execution of a CLOSE 
stateirent is unsuccessful, the EXCEPTION/ERROR procedures are activated. 
If the file is in a closed status and a CLOSE statement is issued, the 
EXCEPTION/ERROR procedures are not activated. 

Within a declarative procedure, there must be no references to 
nondeclarative procedures. In nondeclarative procedures, tnere must be 
no references to declarative procedures,, except that PERFORM statements 
may refer to procedure-names associated with a declarative procedure. 



OPEN Statement 



The OPEN statement initiates the processing of VSAh files. 



Format 



C INPUT file-name-1 [f ile-name-2] 

OPEN ) OUTPUT file-name-1 [f ile-name-2] 

J I-O file-name-1 [f ile-name-2] 

( EXTEND file-name— 1 (f ile-name-2] 



At least one of the options INPUT, OUTPUT, I-O, or EXTEND must be 
specified; there may be not more than one instance of each option 
specified in one OPEN statement, although more than one file-name may oe 
specified with each option. The INPUT, OUTPUT, I-O, and EXTEND options 
may appear in the any order. 

Each file-name designates a file upon which the OPEN statement is to 
operate. Each file-name must be defined in an FD entry in the Date- 
Division, and must not name a sort file . The FD entry :^or the file must 
be equivalent to the information specified when the file was defined. 

The successful execution of an OPEN statement determines the 
availability of the file and results in that file being in open mode. 
Before successful execution of the OPEN statement for a given file, no 
statement can be executed which refers explicitly or implicitly to that 
file. The successful execution of the OPEN statement makes the 
associated record area available to the program; it does not obtain or 
release the first data record. 

The INPUT option permits opening the file for input operations. 

The I-O option permits opening the file for both input and output 
operations. 

The INPUT and I-O options are valid only for files which contain or 
which have contained records, whether or not the files still contain any 
records when the OPEN statement is executed. (That is, even if all the 
Yf^r-nr-n^ ij] ^ file have been deleted ^ that file can still be opened INPUT 
o]^ T-n„) The INPUT and I-O options must not be specified when the file 



has not been already created. 

The OUTPUT option permits opening the file for output operations. 
This option can be specified when the file is being created. (The 
OUTPUT option must not be specified for a file which contains records, 
or which has contained records tnat have been deleted.) 

The EXTENI) option permits opening the file for output operations. 

&■]► ACCESS MODK ''=?F.OURT|;(, ;f ;j j^T. must he explicitly nr- irPpI ir-j^tl Y ■qpqr--i,f i i^rl . When 

EXTEND" is specified, execution of thQ OPEN statement prepares the file 
for the addition of records immediately following the last record in the 
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file. Subsequent WRITE statements add records to the file, as if the 
file had been opened OUTPUT. The EXTEND option can be specified when a 
file is being created; it can also be specified for a file which 
contains records, or which has contained records th at have been dele ted. 

The OPEN mode, the ACCESS N iopy.^ ?inrl ^-l7P fiic^ opqanizatiqn determine 
s^ the valid input/output statements for a given V8AM file. Figure IV 
shows permissible combinations. 



File Organization 
md OPEN mode 



ACCESS mode 
and I/O verb 




SEQUENTIAL OPEN 



READ 

WRITE 

REWRITE 

START 

DELETE 



RANDOM 



OPEN 

READ 

WRITE 

REWRITE 

START 

DELETE 



DYNAMIC 



OPEN 

READ 

WRITE 

REWRITE 

START 

DELETE 



P indicates that this input/output statement is permissible for this 
combination of File Organization, Access Mode and OPEN Mode 

- indicates that this input/output statement is not permissible for 
this combination of File Organization, Access Mode, and OPEN Mode 

L J 

Figure IV. OPEN Statement Options and Permissible I/O Statements 

A file may be opened for INPUT, OUTPUT, I-O, or EXTEND in the same 
program. After the first execution of an OPEN statement for a given 
file, each subsequent execution of an OPEN statement must be preceded by 
the successful execution of a CLOSE statement without the LOCK option. 

Execution of an OPEN INPUT or OPEN 1-0 statement sets the Current 
Record Pointer to the first record existing in the file. For indexed 
files, the record with the lowest key value is considered the first 
record in the file. If no records exist in the file, the Current Record 
Pointer is set so that the first Format 1 READ statement executed 
results in an AT END condition. 

If the PASSWORD clause is specified in the File-Control entry, the 
password data item must contain the valid password before the OPEN 
statement is executed. If the valid password is not present, the OPEN 
statement is unsuccessful. 

If the FILE STATUS clause is specified in the Fiie-Control entry, the 
associated Status Key is updated when the OPEN statement is executed. 



XIV 



VSAM START Statement <bOS/VS) 

If an OPEN statement is issued for a file already in the open status,, 
the EXCEPTION/ERKOR procedure (if specified) for this file is executed. 



START Statement 

The START statement provides a means for logical positioning within 
an indexed file for subsequent sequential retrieval of records. 

r T 

I Format ] 

j. ^ 

EQUAL TO 



GREATER THAN 
START file-name [KEY IS < > data-name] 

> 

NOT LESS THAN 

. NOT < 

[ INVALID KEY imperative-statement] 

L J 

When the START statement is executed^ the associated file must be 
open in INPUT or I-O mode. 



File- name must name an indexed VSAW fi"|e with sequential or dynamic 
access. File-name must be defined in an FD entry in the Data Division. 
File- name must not be the name of_ a sgpt file . 

When the KEY option is not specified, the EQUAL TO relational 
operator is implied. When the START statement is executed, the EQUAL TO 
comparison is made between the current value in the RECORD KEY and the 
corresponding key field in the file's records. The Current Record 
Pointer is positioned to the logical record in the file whose key field 
satisfies the comparison. 

When the KEY option is specified, data-name may be either 

• The RECORD KEY for this file, or 

• Any alphanumeric data item subordinate to the RECORD KEY whose 
leftmost character position corresponds to the leftmost character 
position of the RECORD KEY (that is, a generic key) . 

When the START statement is executed, the comparison specified in the 
KEY relational operator is made between data-name and the key field in 
the file's records. If the operands are of unequal s;|.ze, the comparison 
proceeds as if the key field were truncated on the right to the length 
of the data- name. All other numeric and nonnumeric comparison rules 
apply. The Current Record Pointer is positioned to the first logical 
record in the file whose key field satisfies the comparison. 

If the comparison is not satisfied by any record in the file , an 
INVALID KEY condition exists, and the position of the Current Record 
Pointer is undefined. (See "INVALID KEY Condition" in the preceding 
Common Processing Facilities Section.) 

If the FILE STATUS clause is specified in the File-Control entry, the 
associated Status Key is updated when the START statement is executed. 
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■l^iil'KEMJ .Stsateroent (IK^/TS) 



(read statement 

For sequential access, the READ statement makes available the next 
logical record from a VSAM file. For random access, the READ statement 
makes available a specified record from a VSAM file. 

r 1 

I Format 1 ) 

1. ^ 

I ] 

I READ file-name [ NEXT ] RECORD [ INTO identifier] j 

I ] 

I [AT END imperative- statement] | 

I ] 

L J 

r 1 

I Format 2 | 

|. . y 

I 1 

I READ file-name RECORD [ INTO identifier] | 

I 1 

I [ INVALID KEY imperative-Statement] | 



When the READ statement is executed, the associated file must be open 
in INPUT or I-O mode. 

File-name must be defined in an FD entry in the Data Division- 
File-narog mus t not fce the name of a sort file. 

The INTO identifier option is described in the preceding Common 
Processing Facilities Section, 

Following the unsuccessful execution of a READ statement, the 
contents of the associated record area and the position of the Current 
Record Pointer are undefined. 

If the FILE STATUS clause is specified in the File-Control entry, the 
associated Status Key is updated when the READ statement is executed. 

FORMAT ir When ACCESS MODE SEOUF.MTTAL xs specified or assumed for a 
VSAM file, this format must be used. For such files the statement makes 
available the next logical record from the file. For indexed VSAM 
files, the NEXT option need not be specified; for sequential VSAM files 
the NEXT option must not be specified. 

When ACCESS MODE DYNAMIC is specified for indexed VSAM files, the 
NEXT option must be specified for sequential retrieval. For such files^ 
the READ NEXT Statement makes available the next logical record from the 
file. 

Before a Format 1 READ statement is executed^ the Current Record 
Pointer must be positioned by the successful prior execution of an OPEN , 
ST^T. or READ statement. When the Format 1 READ statement is executed, 
the record indicated by the Current Record Pointer is made available. 
For sequential VSAM files, the next record is the succeeding record in 
logical sequence. For a sequentially accessed indexed VSAM file, the 
next record is that one having the next higher RECORD KEY in collating 
sequence. 

If the position of the Current Record Pointer is undefined when a 
Format 1 READ statement is issued, the execution of the statement is 
unsuccessful. 



If, when a Format 1 READ statement is executed, no next logical 
record exists in the file, the AT END condition exists. The execution 
of the READ statement is considered unsuccessful. 

When the AT END condition is recognized, the following actions are 
taken in the following order: 

1. If the FILE- STATUS clause is specified in the File-Control entry, 
the Status Key is updated to indicate the AT END condition. 

2. If the AT END option of the READ statement is specified, control is 
transferred to the AT END imperative- statement . 

3. If the AT END QT^tion is not si^ecified and a USE AFTER 
EXCEPTION/ERROR procedure for this file is specified, either 
explicitly or implicitly, the USE procedure is executed. 



For files with SEQUENTIAL organization, when the AT END condition has^ 
been recognized, a READ statement for this file must not be executed 
|Until a successful CLOSE statement followed by a successful OPEN 
sta tement have been executed for this file. 

For files with INDEXED organization, when the AT END condition is 
recognized, a Format 1 READ statement for this file must not be executed 
until one of the following has been successfully executed: 

• A CLOSE statement followed by an OPEN statement 

• A Format 2 READ statement (dynamic access) 

• A START statement 

If a sequential VSAM file with the OPTIONAL clause is not present at 
the time the file is opened, execution of the first READ statement 
causes the AT END condition to occur. Standard end-of-file procedures 
are not performed. 

FORMAT 2 : This format must be used for indexed VSAM files in random 
access mode, and for random record retrieval in the dynamic access mode. 

Execution of a Format 2 READ statement causes the value in the RECORD 
KEY to be compared with the values contained in the corresponding key 
field in the file's records until a record having an equal value is 
found. The Current Record Pointer is positioned to this record, which 
is then made available. 

If no record can be so identified, an INVALID KEY condition exists, 
and execution of the READ statement is unsuccessful. (See "INVALID KEY 
Condition" in the preceding Common Processing Facilities Section.) 



The WRITE statement releases a logical record to an OUTPUT, I-O, or 
EXTEND file. 

r 1 

I Format | 

I. : _ — ^_ — L ^ 

WRITE record-name [FROM identifier] 

[ INVALID KEY imperative- statement] 

L J 
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w/hen the WRITL statement is executed, the associated file must be open 
in OUTPUT, I-O, or EXTEND mode. 

Record-name must oe the name of a logical record m the File Section 
of the Data Division. Record-name m,ay be qualified. Record-name must 
not be associated with a sort file. 

The maximum record size for the file is established at the time the 
file is created, and miust not subsequently be changed. 

Execution of the WRITE statement releases a logical record to the 
file associated with record-name . 

^ ^ fter th e WRITE statement is ex ecuted, the l^oaical record is no 
lon'qer avaiX^ble in record-name"^ tiiilebs: ^"^ 






Tne associated file is namted in a SAME RECORD AREA clause (in which 
case the record is also available as a record of the other files 
named in the SAME RECORD AREA clause) , or 

The WRITE statement is unsuccessful due to a boundary violation. 



In either of these two cases, the logical record is still available in 
record-name. 

v3/If the FROM identifier option is specified, then after the WRITE 
statement is executed, the information is still available in identifier, 
even though it may not be in record- name . (See "INTO/FROM Identifier 
Option" in the preceding Common Processing Facilities Section.) 

The Current Record Pointer is not affecte d bv execu tion of the WRITE^ 
^statemerrtj 

The number of character positions required to store tne record in a 
VSAM file may or may not be the same as the number of character 
positions defined by the logical description of that record in the COBOL 
program. 

If the FILE STATUS clause is specified in the File-Control entry, the 
associated Status Key is updated when the WRITE statement is executed. 

SEQUENTIAL VSAM FILES : Xti©. I NVALI D KEY Option must not be s pecified . 

When an attempt is made to write Deyond the externally-defined 
boundaries of the file, the execution of the WRITE statement is 
unsuccessful, and an EXCEPTION/ERROR condition exists. The contents of 
record-name are unaffected. If an explicit or implicit EXCEPTION/ERROR 
procedure is specified for the file, the procedure is then executed; if 
no such procedure is specified, the results are undefined. 

INDEXED VSAM FILES : Before the WRITE statement is executed, tne 
contents of the RECORD KEY must be set to the de-sired value. Note that 
the value contained in any specific RECORD KEY must be unique within the 
records in the file. 

When the WRITE statement is executed, the contents of the RECORD KEY 
are utilized so that subsequent access to the record can be based on the 
RECORD KEY. 

If sequential ^ccess mode is specified, or implied, records must be 
released to the fiTe'Trrr ascending order of RECORD- KEY . 

If random or dynamic access is specified, records may be released in 
any program-specified order. 

Ili^^ALID KEY Option : The INVALID KEY condition exists when any of the 
following conditions occur: 

xviii 
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'mm^: Stmiera^t:' '(DC^/^I 



• For an OUTPUT or.EXTENp file in sequential access mode., when the 
value of the RECORD KEY is not greater than the value of tne RECORD 
KEY for the previous record. 

• For an I-O or OUTPUT file in random or dynamic access mode, when the 
value of the RECORD KEY is equal to the value of a RECORD KEY for an 
already existing record. 

• When an attempt is made to write beyond the externally-defined 
boundaries of the file. 

When the INVALID KEY condition is recognized, the execution of the WRITE 
statement is unsuccessful, the contents of record-nauie are unaffectea, 
and the Status Key, if specified, is set to a value to indicate the 
cause of the condition. (See "INVALID KEY Condition" and "Status Key" 
in the preceding Common Processing Facilities Section.) 



The REWRITE statement logically replaces an existing record in a VSAI»: 
file. 



Format 



REWRITE record-name [ FROM identifier] 
[ INVALID KEY imperative-Statement] 

L J 

^^ .When the REWRITE state ment is executed, the associated file must be 
open in 1-0 mode. 

Record-name must be the name of a logical record in the File Section 
of the Data Division. Record-name must not be associated with a sort 
file. Record-name may be qualified. 

"Execution of the REWRITE .statement replaces -an existing record in the 
:ile with the information contained in record- name . For a sequential 

I VSAJM file , the number nf _r-h;:^racter positions in record-name must equal 
:he number of character positions in the record being replaced. For an 

. indexed VSAM fil ^ e . the number of character positions in record-name need 

^ not equal the number of character positions in the record being 

replaced ._ 



After successful execution of a REWRITE statement, the logical record 
is no longer available in record-name unless the associated file is 
named in a SAME RECORD AREA clause (in which case the record is also 
available as a record of the other files named in the SAME RECORD AREA 
clause) . 

The Current Record Pointer is not affected by execution of the 
REWRITE statement. 

If the FILE STATUS clause is specified in the File-Control entry, the 
associated Status Key is updated when the REWRITE statement is executed. 

For files in the sequential access mode, the last prior input/output 
statement executed for this file must be a successfully executed READ 
statement. When the REWRITE statement is executed, the record retrieved 
by that READ statement is logically replaced. 
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SEQUENTTAT. FTT.FS : The INVALID KEY option must not be specified for this 
type of file. An EXCEPTION/ERROR declarative procedure may be 
specified. 

INDEXED FILES : For an indexed file in the sequential access mode, the 
record to be replaced by the REWRITE statement is identified by the 
current value of the RECORD KEY. When the REWRITE statement is 
executed, the RECORD KEY must contain the value of the RECORD KEY for 
the last-retrieved record from the file. 

For an indexed file in random or dynamic access mode, the record to be 
replaced is the record identified by the value of the RECORD KEY. 

The INVALID KEY condition exists when: 

• The access mode is sequential, and the value contained in the RECORD 
KEY of the record to be replaced does not equal the RECORD KEY of 
the last-retrieved record from the file. 

• The value contained in the RECORD KEY does not equal that of any 
record in the file. 

If either condition exists, the execution of the REWRITE statement is 
unsuccessful, the updating operation does not take place, and the data 
in record-name is unaffected. (See "INVALID KEY Condition" in the 
preceding Common Processing Facilities Section.) 

DELETE Statement 

The DELETE Statement logically removes a record from an indexed VSAM 
file. 

r 1 

I Format | 

^ _ ^ 

DELETE file-name RECORD 

[ INVALID KEY imperative-Statement] 

L J 

When the ^DELETE statement is executed, the associated jEi3,e must be 
open in J-o mndP. 

File-name must be defined in an FD entry in the Data Division and 
must be the name of an indexed VSAM file. 

For a file in sequential access mode, the INVALID KEY option must not 
be specified. 

For a file in random or dynamic access mode, the INVALID KEY option 
may be specified. 

For a file in sequential access mode, the last prior input/output 
statement must be a successfully executed READ statement. When the 
DELETE statement is executed, the system logically removes the record 
retrieved by that READ statement. The current record pointer is not 
affected by execution of the DELETE statement. 

For a file in random or dynamic access mode, when the DELETE 
statement is executed, the system logically removes the record 
identified by the contents of the associated RECORD KEY data item. If 
the file does not contain the record specified by the key, an INVALID 
KEY condition exists. (See "INVALID KEY Condition" in the preceding 
Common Processing Facilities section.) 

XX 



VBm. .CLOSE statement (DOS/VS ) 

After successful execution of a DELETE statement, the record is 
logically removed from the file and can no longer be accessed. 
Execution of the DELETE statement does not affect the contents of the 
record area associated with file-name . 

If the FILE STATUS clause is specified in the File-Control entry„ the 
associated Status Key is updated when the DELETE statement is executed- 



The CLOSE statement terminates the processing of VSAM files. 

r 1 

I Format j 

|. , 

] 
CLOSE file-name-1 [WITH LOCK ] ] 

1 

[file-name-2 [WITH LOCK]] „.. ] 



A CLOSE statement may be executed only for a file in an open mode„ 
After successful execution of a CLOSE statement^ the record area 
associated with the file-name is no longer available. Unsuccessful 
execution of a CLOSE statement leaves availability of the record area 
undefined. 

Each file-name designates a file upon which the CLOSE statement is to 
operate„ 

When the WITH LOCK option is not specified, standard system closing 
procedures are performed. This file may be opened again during this 
execution of the object program. 

When the WITH LOCK option is specified, standard system closing 
procedures are performed; the compiler ensures that this file cannot be 
opened again during this execution of this object program. 

After a CLOSE statement is successfully executed for the file, an 
OPEN statement for that file must be executed before any other 
input/ output statement can refer explicitly or implicitly to the file. 

If a CLOSE statement is not executed for an open file before a STOP 
RUN statement is executed, results are unpredictable. 

If an input sequential VSAM file is described in the File-Control 
entry as OPTIONAL and the file is not present during this execution of 
the object program, standard end-of-file processing is not performed.. 

If the FILE STATUS clause is specified in the File-Control entry, the 
associated Status Key is updated when the CLOSE statement is executed. 

If the file is in an open status and the execution of a CLOSE 
statement is unsuccessful, the EXCEPTION/ERROR procedure (if specified) 
for this file is executed. 



The Merge Facility gives the COBOL user access to the merging 
capabilities of the Program Product DOS/VS Sort-Merge (Program Number 
5746-SMl). Through COBOL, the user can combine two or more identically 
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ordered input files into one output file according to key(s) contained 
in each record. More than one merge operation can be performed during 
one execution of the COBOL program. Special processing of output 
records can also be specified. 

There are special considerations in the Environment Division, the 
Data Division, and the Procedure Division for the Merge Facility. 



ENVIRONMENT DIVISION 

Each input file and the resulting merged output file must be 
described in a separate File-Control entry, and each must be a standard 
sequential file, or a VSAM file with sequential access. The merge file 
must have a separate File-Control entry, as described in the following 
paragraphs. 



File-Control Entry f or y<lerqe File:^ 



The File-Control entry names the merge file and associates it with a 
storage medium. 

r 1 

I General Format | 

j. ^ 

{ SELECT file-name 
ASSIGN TO system-name-1 [system-name-2] --. ,}... 

L 4 

Each File-Control entry for a merge file must begin with a SELECT 
clause, and be immediately followed by an ASSIGN clause. There may be 
no other clauses. 

SELECT Clause : The SELECT clause names each merge file in the program. 
Each file described by an SD entry in the Data Division must be named 
once and only once as a file-name following the key word SELECT. 

ASSIGN Clause : The ASSIGN clause is required. System-name has the same 
rules of formation as it has for sort work files; however, the fixed 
SYSnnn and name fields (SYSOOl and SORTWKl, etc.) are treated as 
documentation. (See "Assignment of Sort Work Units" in the Sort Feature 
chapter. ) 

If an ASCII-collated merge is to be performed, C must be specified in 
the organization field. (See "Appendix E: ASCII Considerations.") 



I-0-Control Paragraph 

The optional I-0-Control Paragraph specifies the storage area to be 
shared by different files. 
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SAME SORT'^MERGE AREA (DOS/yS} 

r " " 1 

I General Format ] 

|. ^ 

(SORT 



SORT-MERGE \ AREA FOR 
RECORD j 



file-name-l [file-name-2] «.. . 

L . i 

When the SAME SORT AREA or SORT-MERGE AREA clause is specified, at 

least one file- name specified must name a sort or merge file. Files 

that are not sort or merge files may also be specified,. The following 
rules apply: 

• More than one SAME SORT AREA or SORT-MERGE AREA clause may be 
specified; however, a sort or merge file must not be named in more 
than one such clause. 

• If a file that is not a sort or merge file is named in both a SAME 
AREA clause and in one or more SAME SORT AREA or SORT-MERGE AREA 
clauses, all of the files in the SAME AREA clause must also appear 
in all of the SAME SORT AREA or SORT-MERGE AREA clauses. 

• Files named in a SAME SORT AREA or SORT-MERGE AREA clause need not 
have the same organization or access. 

• Files named in a SAME SORT AREA or SORT-MERGE AREA clause that are 
not sort or merge files do not share storage with each other unless 
the user names them in a SAME AREA or SAME RECORD AREA clause. 

The SAME SORT AREA or SORT-MERGE AREA clause specifies one storage 
area available for merge operations by each named merge file. That is, 
the storage area allocated for one merge operation is available for 
reuse in another merge operation. 

The function of the SAME SORT AREA or SORT-MERGE AREA clause is to 
optimize the assignm.ent of storage areas to a given MERGE statement. 
The system handles storage assignment automatically; hence, the SORT 
AREA or SORT-MERGE AREA options, if specified, are treated as 
documentation- 

When the SAME RECORD AREA option is specified, the named files, 
including any sort or merge files, share only the area in which the 
current logical record is processed. Several of the files may be open 
at the same time, but the logical record of only one of these files can 
exist in the record area at one time. 



DATA DIVISION 

In the Data Division, the user must include file description entries 
for each merge input file and for the merged output file, merge- file 
description entries for each merge file, and record description entries 
for each. 



Merqe-Filej Description Entry 

A merge-file description entry must appear in the File Section for 
each merge file named in a File-Control entry. 
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r - 

1 


General Format 


T 

j 


^ 








SD inerge-f ile-name 

[ RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS] 
/ RECORD IS 
f RECORDS are) 



[DATA < \ data-name-l [data-name- 2] ..-] 



[SORT-OPTION IS data-name-3] 



The level indicator SD identifies the beginning of the merge-file 
description, and must precede the merge-f ile-name . 

The clauses following merqe-f ile-name are optional, and their order 
of appearance is not significant- 

One or more record description entries must follow the merge-file 
description entry, but no input/output statements may be executed for 
the merge file. 

Merge-File-Name ; The merge- file-name must be the same as that specified 
in the merge file File-Control entry. It is also the name specified as 
the first operand in the MERGE statement. 

RECORD CONTAINS Clause ; The size of each data record is completely 
defined in the record description entry; therefore, this clause is never 
required. When it is specified, the same considerations apply as in its 
Data Division description. 

DATA RECORDS Clause ; This clause names the 01-level data records 
associated with this SD entry. This clause is never required, and the 
compiler treats it as documentation. When it is specified, the same 
considerations apply as in its Data Division description. 

SORT-OPTION Clause ; This clause specifies that at object time an OPTION 
control statement for the Sort/Merge program will be specified in the 
data-name-3 area. Rules for specification are given in the D03/VS Sort 
Feature description later in this chapter. 



PROCEDURE DIVISION 

The Procedure Division contains a MERGE statement describing the 
merge operation, and optional output procedures- The procedure-names of 
the output procedures are specified within the MERGE statement. More 
than one MERGE statement can be specified, appearing anywhere except in 
the declaratives section or in an input or output procedure for a SORT 
or MERGE statement. 




The MERGE statement combines two or more identically sequenced files 
using specified key{s), and makes records available to an output file in 
merged order. 



i ^1^ Format 

MERGE file-naine-1 

ASCENDIlNlG ] 
ON <f > KEY data-name-1 [data-name- 2] ... 

DESCENDING \ 



:oN ) 



ASCENDING 



tON / V KEY data-naine-3 [data-name- 4] ... ] ... 

I descending ) 
USING file-name-2 file-name-3 [f ile-name-4] ... 
giving file-name-5 
OUTPUT PROCEDURE IS section- name-1 [ THRU section-name- 2] 

L J 

No file-name specified in the MERGE statement niay be open at the time 
the statement is executed. The files are automatically opened and 
closed by the merge operation; all implicit functions are performed, 
such as execution of system procedures or any associated declarative 
procedures . 

No file-name may be specified more than once in one MERGE statement. 

Only one file-name from a multiple file reel may appear in one MERGE 
statement. 

FILE-NAME-1 ; This file-name represents the merge file, and must be 
described in an SD entry in the Data Division. 

ASCENDING/DESCENDING KEY Option ; , These options specify whether records 
are to be merged in ascending or descending sequence, based on one or 
more merge keys. 

Each data-name represents a KEY data item, and must be described in 
the record description (s) associated with the SD entry for file-name-1 , 
the merge work file. The following rules apply: 

• if file-name-1 has more than one associated record description 
entry, the KEY data items need be described in only one such record 
description 

• each data -name may be qualified; it may not oe subscripted or 
indexed (that is, it may not contain or be contained in an entry 
that contains an OCCURS clause) 

• KEY data items must be at a fixed displacement from the beginning of 
the record (that is, no KEY data item m.ay follow an OCCURS DEPENDING 
ON clause in the record description) 

• a raaximxam of 12 keys may be specified; the total length of all keys 
must not exceed 256 bytes 

• all key fields must be located within the first 4092 bytes of the 
logical record 

The KEY data items are listed in order of decreasing significance, no 
matter how they are divided into KEY phrases. Using the format as an 
example, data-name-1 is the most significant key, and records are merged 
in ascending or descending order on that key; data-name-2 is the next 
most significant key; within data-name-1, records are merged on 
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data-nanie-2 in ascending or descending order. Within data-name- 2, 
records are merged on data-name- 3 in ascending or descending order; 
within data-name-3, records are merged on data-name- 4 in ascending or 
descending order, etc. 

When ASCENDING is specified, the merged sequence is from the lowest 
to the highest value of the contents in the KEY data item according to 
the collating sequence used. 

When DESCENDING is specified, the merged sequence is from the highest 
to the lowest value of the contents in the KEY data item according to 
the collating sequence used. 

Figure V gives the collating sequence used for each category of KEY 
data item. 

r T 1 

I KEY Category | Collating Sequence | 

^ + ^ 

I Alphabetic | | 

I Alphanumeric j | 

I Alphanumeric Edited j EBCDIC (non-algebraic and unsigned) j 
I Numeric Edited j | 

^ + ^ 

I Numeric | Algebraic (signed) . | 

L JL J 

Figure V. KEY Item Categories and Collating Sequences 

The rules for comparison are those for the relation condition (see 
"Relation Condition" in the Conditions chapter of the Procedure 
Division). If two or more KEY data items test as equal, the merge 
operation makes the records available in the order that the input 
file-names are specified in the USING option. 

USING Option ; All file-names listed in the USING option represent 
identically ordered input files that are to be merged. Two through 
eight file-names may be specified. 

GIVING Option ; File-name- 5 is the name of the merged output file. When 
this option is specified, all merged records made available from the 
merge operation are automatically written on the output file. 

OUTPUT PROCEDURE Option ; When this option is specified, all output 
records from the merge operation are made available to the user (through 
a RETURN statement) for further processing. 

When an output procedure is specified, control passes to the 
procedure during execution of the MERGE statement. Before entering the 
output procedure, the merge operation reaches a point at which it can 
provide the next merged record when requested. The RETURN statement in 
the output procedure is a request for the next merged record. (See the 
RETURN statement description in the Sort Feature chapter.) An output 
procedure must contain at least one RETURN statement to make merged 
records available for further processing. 

Control may be passed to an output procedure only when a related 
MERGE statement is being executed. 

The output procedure must not form part of any other procedure. 

If section-name- 1 alone is specified, the output procedure must 
consist of one contiguous Procedure Division section. 

If section-name- 1 THRU section-name- 2 is specified, the output 
procedure consists of two or more contiguous Procedure Division 
sections; section-name- 1 specifies the first such section; 
section-name- 2 specifies the last such section. 
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Control must not be passed to the output procedure unless a related 
MERGE or SORT Statement is being executed, because RETURN statements in 
the output procedure have no meaning unless they are controlled by a 
MERGE or SORT Statement. The output procedure may consist of the 
processing requests necessary to select, modify, or copy the records 
being made available, one at a time, from the merge operation- The 
following restrictions apply: 

• There may be no explicit transfers of control outside the output 
procedure. ALTER, GO TO, and PERFORM statements within the 
procedure must not refer to procedure-names outside the output 
procedure. However, an implicit transfer of control to a 
declarative procedure is allowed. 

• No SORT or MERGE Statements are allowed. 

• The remainder of the Procedure Division must not transfer control to 
points inside the output procedure; that is, ALTER, GO TO, and 
PERFORM statements in the remainder of the Procedure Division must 
not specify procedure-names within an output procedure. 

The compiler inserts an end-of-processing transfer at the end of the 
last output procedure section. When end-of-processing is recognized, 
the merge operation is terminated, and control is transferred to the 
next statement following the MERGE statement. 

SEGMENTATION RESTRICTIONS ; The MERGE statement may be specified in a 
segmented program. However, the following restrictions apply: 

• If the MERGE statement appears in the fixed portion, then any 
associated output procedure must be: 

- completely within the fixed portion, or 

- completely within one independent segment 

• If the MERGE statement appears in an independent segment, then any 
associated output procedure must be: 

- completely within the fixed portion, or 

- completely within the same independent segment as the MERGE 
statement 

3886 OCR PROCESSING . i 

The IBM 3886 OCR (Optical Character Reader) Model 1 is a general 
purpose online unit record device that satisfies a broad range of data 
entry requirements. The 38 86 OCR can significantly reduce time and ccst 
factors, by eliminating input steps in both new and existing 
applications; a keying process is no longer necessary, since the 3886 
OCR can read and recognize data created by numeric hand printing, 
high-speed computer printing, typewriters, and preprinted forms. 

The IBM 3886 OCR uses several new technologies which make it a 
compact, highly reliable, modular device. A powerful microprogrammed 
recognition and control processor performs all machine control and 
character recognition functions, and enables the 388 6 OCR to perform 
sophisticated data and blank editing. 

The 3886 OCR accepts documents from 3 x 3 to 9 x 12 inches in size. 
Under program control, it can read docioments line-by-line, transmitting 
their contents line-by-line to the CPU. Additional facilities, all 
under program control, include: document marking, line marking, 
document ejecting (with stacker selection) , and line reading (of current 
line) . 
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DOS/VS COBOL support for the 3886 OCR is through an ohject-time 
subroutine in the COBOL library, invoked through COBOL CALL statements. 
By means of parameters passed to the subroutine, the following 
operations are provided: open and close the file, read a line, wait for 
read completion, mark a line, mark the current document, eject the 
current document, and load a format record. After each operation, a 
status indicator is passed back to the COBOL program, so that any 
exceptional condition can be tested. 

Through a fixed format OCR file information area in the 
Working-Storage or Linkage Section, the COBOL user defines storage for 
the OCR parameters. Of these parameters, the COBOL programmer is 
responsible for providing a file identifier, a format record identifier, 
an operation code, and (depending on the operation) a line number, line 
format number, mark code, and stacker number. After completion of each 
operation a status indicator is returned; after completion of a read 
operation, header and data records are also returned. 

DOS/VS provides two macro instructions for defining documents. The 
DFR macro instruction defines attributes common to a group of line 
types. The DLINT macro instruction defines specific attributes of an 
individual line type. The DFR and associated DLINT macro instructions 
are used in one assenbly to build a format record module. The format 
record must be link-edited into the core image library so that it can be 
loaded into the 3886 OCR when the file is to be processed. The format 
record indicates the line types to be read, attributes of the fields in 
the lines, and the format of the data records to be processed. 

Additional information on the IBM 3886 OCR can be found in the following 
publications : 

IBM DOS/VS COBOL Comipiler and Library Programmer's Guide , Order 
No. SC28-6478 

IBM 388 6 Optical Character Reader 

General Information Manual , Order No. GA21-9146 

Input Document Design Guide and Specifications , Order No. GA21-9148 

DOS/VS Program Planning Guide for IBM 3886 Optical Character 
Reader Model 1 . Order No. GA21-5099 

DOS/VS Supervisor and I/O Macros , Order No. GC33-5373 



FIPS FLAGGER 

The FIPS (Federal Information Processing Standard) is a compatible 
subset of full American National Standard COBOL, X3. 23-1968. The FIPS 
itself is subdivided into four levels: low, low-intermediate, 
high- intermediate, and full. Any program written to conform to the FIPS 
must conform to one of those levels of FIPS processing. Processing 
modules included in Full American National Standard COBOL, and those 
included in the four levels of the FIPS, are shown in Figure VI. 
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American 

National 

Standard 

COBOL 

Processing 

Modules 



2NUC 1,2 
(Nucleus) 

3TBL 1„3 
(Table 

Handling) 

2SEQ 1„2 
(Sequential 
Access) 

2RAC 0„2 
(Random 
Access) 

2SRT 0^2 
(Sort) 

2RPW 0^2 
(Report 
Writer) 

2SEG 0^2 
(Segmenta- 
tion) 

2LIB 0,;2 
(Library) 



Full FIPS 

Processing 

Modules 



2NUC 1,2 
3TEL 1,3 

2SEQ 1,2 

2RAC 0,2 

2SRT 0,2 



2SEG 0,2 



2LIB 0,2 



High- intermediate 
FIPS Processing 
Modules 



2NUC 1,2 
2TBL 1,3 

2SEQ 1,2 

2RAC 0,2 

ISRT 0,2 



ISEG 0,2 



ILIB 0,2 



Low- intermediate 
FIPS Processing 
Modules 



2NUC 1,2 
2TBL 1,3 

2SEQ 1,2 

2RAC 0,2 



ISEG 0,2 



i ILIB 0,2 



1 

1 

Low FIPS i 

Processing j 

Modules 1 



INUC 1,2 1 



ITBL 1,3 j 



1 



ISEQ 1,2 i 



Figure VI. The Four Levels of FIPS Processing 



The FIPS Flagger identifies source clauses and statements that do not 
conform to the Federal standard- Four levels of flagging, to conform to 
the four levels of the FIPS, are provided. The following lists identify 
COBOL source elements flagged for each level™ 

FULL FIPS FLAGGING ; When flagging for the full FIPS level is specified, 
the following elements of the COBOL source, if specified, are 
identified. 

GLOBAL ITEMS 

Single quote instead of double 
Floating Point Literals 



Special 
Special 
Special 
Special 
Special 
Special 
Special 
Special 
Special 
Special 
Special 



Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 



LINE-COUNTER 

PAGE- COUNTER 

CURRENT-DATE 

TIME-OF-DAY 

COM-REG 

SORT- RETURN 

SORT-FILE-SIZE 

SORT-CORE-SIZE 

SORT-MODE- SIZE 

NSTD-REELS 

WHEN-COMPILED 



Comment Lines with * in Column 7 

The SUPPRESS option of the COPY statement 
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IDENTIFICATION DIVISION Items 

ID abbreviation for IDENTIFICATION 

Accepting Identification Division Paragraphs in any order 

Accepting Program Name in quotes 

ENVIRONMENT DIVISION Items 

Optional CONFIGURATION SECTION and Paragraphs 

SOI through SOS Function^names in SPECIAL-NAMES paragraph 

Allowing any order for optional SELECT clauses 

W, R, or I as Organization indicator in System-name 

Optional omission of IS in ACCESS MODE IS Clause 

Optional omission of IS in ACTUAL KEY IS Clause 

ACTUAL-KEY clause for sequential access of a direct file 

ACTUAL-KEY clause for sequential creation of a direct File 

NOMINAL KEY Clause in FILE-CONTROL Paragraph 

RECORD KEY Clause in FILE-CONTROL Paragraph 

TRACK-AREA Clause in FILE-CONTROL Paragraph 

The COPY statement in the FILE-CONTROL paragraph 

Short form of RERUN ON Clause 

Interchangeable use of REEL and UNIT in RERUN ON Clause 

APPLY Clause in I-O-CONTROL paragraph 

Allowing I-O-CONTROL paragraph clauses in any order 

RESERVE integer AREAS clause (as distinguished from the RESERVE 

ALTERNATE AREAS clause) 
ORGANIZATION clause 
ACCESS MODE DYNAMIC clause 
PASSWORD clause 
FILE STATUS clause 
SAME SORT-MERGE AREA clause 



DATA DIVISION Items 

REPORT SECTION of DATA DIVISION 

RD level indicator 

The DATA RECORDS clause for a REPORT FD 

LINKAGE SECTION of DATA DIVISION 

Allowing unequal level numbers to belong to the same group 

RECORDING MODE Clause of FD entry. 

REPORT Clause of FD Entry 

LABEL RECORDS CLAUSE on Sort File Description 

SORT-OPTION clause on Sort File Description 

Optional BLOCK CONTAINS for DIRECT Files when RECORDING MODE IS S 

Accepting name of preceding entry when using multiple redefinition 

External Floating-point picture 

The SIGN Clause 

Allowing the SYNCHRONIZED Clause at the 01 level 

COMPUTATIONAL-1 option of the USAGE Clause 

COMPUTATIONAL- 2 option of the USAGE Clause 

COMPUTATIONAL- 3 option of the USAGE Clause 

COMPUTATIONAL- 4 option of the USAGE Clause 

Nested OCCURS DEPENDING ON clauses 

Allowing SYNCHRONIZED with USAGE IS INDEX 

The COPY statement in the Working-Storage Section 

DISPLAY-ST option of the USAGE Clause and associated PICTURE 

Use of VALUE Clause as Comments in File Section for other than 

Condition-name entries 
COPY REDEFINES in Working-Storage Section 
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PROCEDURE DIVISION Items 



USING clause on PROCEDURE DIVISION 

THEN used to separate statements 

Allowing omission of section header at beginning of Procedure 

Division 
The START statement 
The REWRITE statement 
The TRANSFORM Statement 



The GENERATE Statement 
The INITIATE statement 
The TERMINATE Statement 



The DEBUG statement 

The READY TRACE statement 

The RESET TRACE statement 

The ON statement 

The EXHIBIT stateme^it 

The CALL statement 

The ENTRY statement 

The GOBACK statement 

The EXIT PROGRAM statement 

The USE AFTER STANDARD EXCEPTION sentence 

The READ NEXT Statement 

The DELETE statement 

The MERGE statement 

The EXTEND option for the OPEN statement and Error Procedures 

The SERVICE RELOAD Statement 

The unary plus operator 

Allowing omission of the space following the unary operator 

OTHERWISE in IF Statements 

The GO TO MORE-LABELS Statement 

GIVING option of USE sentence 

USE BEFORE REPORTING sentence 

Allowing omission of the INVALID KEY option for READ and WRITE 

statements 
The AT END-OF-PAGE or EOP option of the WRITE statement 
The WRITE AFTER POSITIONING statement 

The FROM SYSIPT or CONSOLE option of the ACCEPT statement 
The UPON CONSOLE, SYSPUNCH, SYSPCH, or SYSLST Option of the DISPLAY 

statement 

The BASIS statement 
The INSERT statement 
The DELETE Statement 

The EJECT statement 
The SKIPl statement 
The SKIP2 statement 
The SKIP3 statement 

HIGH- INTERMEDIATE FIPS FLAGGING : When flagging for the 
high-intermediate FIPS level is specified, all elements included in the 
preceding list are flagged, plus the following additional COBOL source 
elements : 

GLOBAL ITEMS 

The REPLACING Option of the COPY statement 
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E>P/ISONMENT DIVISION 

SEGMENT-LIMIT clause in OBJECT-COMPUTER paragraph 
SORT option of SAME Clause 

DATA DIVISION 

The ASCENDING and DESCENDING KEY option of the OCCURS clause 
The DEPENDING ON option of the OCCURS clause 

PROCEDURE DIVISION 

All sections with the same priority number must be together 
All segments with priority number 1-49 must be together 

The SEARCH statement 

More than one SORT statement 

The FROM option of the RELEASE statement 

The INTO option of the RETURN statement 

LOW- INTERMEDIATE FIPS FLAGGING ; When flagging for the low-intermediate 
FIPS level is specified, all elements included in the preceding lists 
are flagged, plus the following additional COBOL source elements: 

ENVIRONMENT DIVISION 

The OR option of the SELECT sentence 

DATA DIVISION 

SD level indicator 

PROCEDURE DIVISION 

One or more SORT statements 

Only one STOP RUN statement in the non-declarative portion 

The RETURN statement 

The RELEASE Statement 

LOW FIPS FLAGGING : When flagging for the low FIPS level is specified, 
all elements included in the preceding lists are flagged, plus the 
following additional COBOL source elements: 

GLOBAL ITEMS 

Comma and semicolon as punctuation 

Datanames which begin with non-alphabetic character 

Continuation of words and numeric literals 

Figurative constant ZEROES 
Figurative constant ZEROS 
Figurative constant SPACES 
Figurative constant HIGH-VALUES 
Figurative constant LOW-VALUES 
Figurative constant QUOTES 
Figurative constant ALL literal 
The COPY statement 

IDENTIFICATION DIVISION 

DATE-COMPILED Paragraph 



XXXI 1 



FIPS nagger (DOS/VS) 

ENVIRONMENT DIVISION 

RESERVE ALTERNATE AREAS Clause in File-Control Paragraph (SELECT 

sentence) 
OPTIONAL in SELECT Clause 

ACTUAL KEY Clause in File-Control Paragraph 
FILE-LIMITS ARE Clause 

Data-name instead of literal in FILE-LIMIT IS clause 
Multiple extents in FILE-LIMIT IS clause 
RANDOM option in ACCESS MODE IS Clause 

RECORD and file-naine-2 option of SAME Clause 
MULTIPLE FILE TAPE Clause in I-0-CONTROL Paragraph 



DATA DIVISION 



Level numbers 11 - 49 

Level numbers 1-9 (1-digit) 

Level number 66 RENAMES clause 

Level number 8 8 Condition Name 

Nesting of REDEFINES Clause 

VALUE Clause as Condition-name entry 

Integer-1 TO option of BLOCK CONTAINS (RECORD or CHARACTER) Clause 

Data-name option on LABEL RECORDS Clause 

Data-nam.e option of VALUE OF Clause 

Multiple Index-names for OCCURS clause 



PROCEDURE DIVISION 



+, -, ♦, /, and ** 

>, <, and = in relationals 

Connectives OF, IN, ', ", AND, OR, and NOT 

DECLARATIVES, END DECLARATIVES and USE sentence 

Qualification of names 

Priority number on Section header 

The COMPUTE verb 

The SEEK Statement 

The Sign condition (POSITIVE, NEGATIVE, or ZERO) 

Condition-name condition 

Compound conditions 

Nested IF statements 

CORRESPONDING option (ADD, SUBTRACT, and MOVE) 

Multiple results of ADD and SUBTRACT statements 

REMAINDER option of DIVIDE statement 

GO TO without object (used with ALTER) 

Multiple operands of ALTER statement 

UNTIL Condition and VARYING form of PERFORM 

REVERSED and NO REWIND options of OPEN statement 

Multiple file-names in OPEN statement 

INTO option of READ statement 

INVALID KEY option of READ statement 

FROM option of WRITE Statement 

ADVANCING identifier LINES/mnemonic/name form of WRITE 

The FROM option of the ACCEPT statement 

The UPON option of the DISPLAY statement 

The WITH NO REWIND or LOCK option of the CLOSE Statement 

Multiple file-names in a CLOSE statement 

Three levels of subscripting 

Multiple Index-names/identifier in SET statement 

The UP BY and DOWN BY option of the SET statement 



DOS/VS COBOL Considerations xxxiii 



QC^/VS Devices CDOS/VS) 

MISCELLANEOUS FILE PROCESSING CONSIDERATIONS 



The following iteirs, concerning standard sequential, direct, and 
indexed file processing, as well as the sort feature, apply only for 
DOS/VS COBOL. 



File Processing Suinmary — New Devices 



The file processing techniques available for the DOS/VS COBOL devices 
are summarized in Figure VII. 
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I DOS Organization \ Device | ACCESS 



Organization j 
-I 



DTFCD 
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Figure VII. File Processing Summary — DOS/VS COBOL Devices 



ASSIGN Clause 



For the new DOS/VS COBOL devices, system/name has the following 
formats: 

For the 3203/5203 printers: 



SYSnnn-UR- 



!3203) 
\ -S[^ 
5203J 



name] 



For the 5425 multifunction card unit: 



SYSnnn-UR-5425 



s - : ir 



[-name] 



X' 

z/ 

(See the ASSIGN Clause description for the 2560 lyFCM for the meaning of 
each field.) 
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IX>S/¥S Dfevices (DOS/vS) 



For the 3540 diskette input/output unit: 
UT 



SYSnnn- < > -3540-S t-name] 

For the 3340 mass storage disk facility: 
UT-3340-S 

S 



SYSnnn- 



& 



DA-33U0- 



[-name] 
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Miscellaneous Considerations (DOS/VS) 



iCTUAL KEYyClause 



When the 3340 device is specified for a direct file, and actual track 
addressing is used, the first 8 bytes of the ACTUAL KEY may be specified 
as follows: 



PACK 






3340 I 0-221 
(Mod 70) 1 



CELL 



T -T 

CYLINDER 











-^ 



Byte I 1 

1 
Device | 



0-347 



0-255 



3340 I 0-221 
(Mod 35) 1 



0-695 



HEAD 



0-11 



0-11 



RECORD 



0-255 



APPLY WRITE-VERIFY Clause 



For the 354 diskette input/output unit, this clause has no meaning, 
and must not be specified. 



APPLY CYL-OVERFLOW Clause 



For a 3340 mass storage facility, when' the APPLY CYL-OVERFLOW clause 
is specified, the maximum number of tracks that can be reserved for 
overflow records is 10. If the clause is not specified, 2 tracks are 
reserved for overflow records. 



BLOCK CONTAINS Clause 



For a file on the 3540 diskette input/output unit, when the BLOCK 
CONTAINS clause is specified, the RECORDS option must be used. 



LABEL RECORDS Clause 



For a file on the 3540 diskette input/output unit, LABEL RECORDS ARE 
STANDARD must be specified. 



ERROR Declarative 



When the GIVING option is specified for a file on the 3540 diskette 
input/output unit, the error bytes in data-name- 1 contain the 
information shown in Figure VIII. (For the 3340 device, the contents of 
the error bytes are the same as for other mass storage files.) 
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Error Byte | Meaning 
j^ 

1 ] data check 
^ 

2 I equipment check 
+ 

3 thru 8 j unused 

J. 

Figure VIII. Error Eytes for 3540 — GIVING Option 

ACCEPT Literal Statement 

When FROM CONSOLE is specified, the input data can be typed in either 
capital or small letters, or a combination of the two. The program 
accepts the data as capital letters. 

OPEN Statement 

A file that resides on the 3540 diskette input/output unit may be 
opened only in the INPUT or OUTPUT mode; the REVERSED and WITH NO REWIND 
options may not be specified. 

WRITE Statement 

For a file on the 3540 diskette input/output unit, the INVALID KEY 
option must not be specified. 

For a file on the 5425 MFCU, the System/37 Card Device 
considerations as described in the WRITE Statement of the Procedure 
Division chapter apply, with the following additional rules: 

• For the print feature, the ADVANCING/POSITIONING options are not 
allowed; single spacing is automatically provided. 

• For the print feature, there may be only one WRITE statement issued 
for each card. 

• The print feature allows a maximum of 32 characters per line and 3 
or 4 lines per card, for a maximum of 128 characters. 

• For the punch feature, in the WRITE AFTER ADVANCING statement for 
stacker selection, function-names SOI through S04 may be specified, 

• For the punch feature, in the WRITE AFTER POSITIONING statement for 
stacker selection, V, W, X, Y may be specified for stackers 1 
through 4, respectively. 



CLOSE Statement 

For a file on the 3540 diskette input/output unit, only the CLOSE 
file-name and CLOSE file- name WITH LOCK options are valid. 

When the CLOSE statement is executed, standard close file procedures 
are performed, and the diskette is fed out of the input/output unit. 
When the WITH LOCK option is specified, the compiler ensures that this 
file cannot be opened again during this execution of the object program. 
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Sort Feature 



The input and/or output file can be either a standard sequential file 
or a sequentially accessed VSAM file. Up to 8 input files may be 
specified in the USING option. 

The sort-file-description entry may be specified as follows: 



I— 



Format 

SD sort-file-name 

[ RECORDING MODE IS model 

(RECORD IS I 
[ DATA < / data-name-1 [data-name-2] ...] 

I RECORDS are; 

[RECORD CONTAINS [ integer- 1 TO] integer- 2 CHARACTERS] 

^ RECORD IS ) ( STANDARD ) 

( RECORDS are) f OMITTED ) 



[LABEL I > < 



[SORT-OPTION IS data-name- 3] 



The SORT-OPTION clause specifies that at object time an OPTION 
control statement for the Sort/Merge program will be specified in the 
data- name- 3 area. 

Data-name-3 must be a field defined in the WORKING-STORAGE section. 
A full description of the SORT-OPTION clause can be found in the 
DOS/VS COBOL Programmer's Guide , SC28-6478. 

The other clauses of the sort-file-description entry are implemented 
as described in the Sort Feature chapter. 

5425 Combined Function Processing 

The descriptions in Appendix G apply, with the following special 
considerations : 

In the SPECIAL- NAMES paragraph, function-names SOI through SO 4 may be 
specified for stacker selection of 5425 punched output. 

ASSIGN clause considerations for the 256 MFCM apply also for the 
5425 MFCU. 

For the 5425 print function WRITE statement, line control may not be 
specified, and there may be only one WRITE statement issued per card. A 
iraximum of 32 characters per line, and 3 or 4 lines per card may be 
specified, for a m.aximum. logical record size of 128 characters. 

For the punch function, SOI through S04 (for stacker selection 1 
through 4, respectively) may be specified in the WRITE ADVANCING 
statement. 

For the punch function, V, W» X, Y (for stacker selection 1 through 
4, respectively) may be specified in the WRITE AFTER POSITIONING 
statement. 
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FEATURES OF TriE DOS FULL COBOL PROGRAiyi PRODUCT COMPILERS 



k--{'-*e- %iMt^t '}:^m^^^^ ' "■"---■. :firfcftiiicds ar ^ifefbjrmatt^a COBod -source, listing ■- 
'P-:/.--:/aTi^f dp%i^^ the : 

■ V listing.; LTiber^fx^^ ecmtairts j^bedded - 

:^ . cross- reference ijrifditaat ion indicating; the staternent to or from 
;;■;.;,};- :?wiiich thte referefiace- is iriade, ;arid the ^tiype- of action 'r^esdlting : 
s: ;;--;, fr^pin' the *rhe .^utility, of . the listing , is ill creased , ; 

; .further i^Y-'is^S^si^^^ i^ indenting conventions- .so tha-t' the , , , 
;.v., •/-..- ,'hi-erarGhY-;afgr6iij> data item's' „ahd nested -'IF- stateitients- is made - 
;^'->'-' f;-robre..-visibie.--'^'. '.-.-' >->-'-y, '".■■- ■■-[' •-','.,', 

?;' . •V A?erb:^rofiies ; — : facilitates identifying and locating verbs in 
;'. ;; .the .COBOL scarce program- -A sniBmary li&tihg'Of each different 

; /v^rb ;andr the' nxOTher:o€ -tiroes.-' it c The listing 

• .. : \;can also inelude the stateroent number, associated with each 
■■"'-: ■--^; occurrence . 

.;.•♦:,.' Verb- Statistics -- summarizes how often each verb in the COBOL 

source- program is executed during an individaal. program 
.; execution. The statistics are printed at program termination, 

and are useful in identifying heavily-used portions of a program 
: so that they n'tay be analyzed for optimization. In addition, the 
;•;* statisticis serve as verification that a given portion of a 
c^V;-/ -program -has been -executed. 

• SORT-OPTIOI^ Clause — In the sort-file-description entry, the 
::'r:SORT*-OPTIOI^ clause specifies a Wo:£^king-Storage data area which 

- ; at ; oi^5^^^ ^i-n^'S will contain an OPTIOTS control statement for the 

r:;,:;- ;;Bbrt/-Merge prp^^ CProgram "Numbef '-574:6^SM1) . ' The SORT-OPTION . , 
;.■'.: clause gives the COBOL programmer greater control over operation 
;;l-;.'';^;of; the 'Sort/Merge' Programi • ',/' ■ 

Base Coropii e r Features ; the following features are continued from, 
■•Rel:ease 1-." , '.- . 

♦ VSAM (Virtual storage Access Method) Support — which provides 
fast storage and retrieval of records, password protection, 
centralized and simplified data and space management, advanced 
error recovery facilities, plus system catalogs. COBOL supports 
indexed (key-sequenced) files and sequential (entry-sequenced) 
files. Records can be fixed or variable in length- 

* MERGE Support — the MERGE verb allows the COBOL user to combine 
two or more identically ordered input files intp one output file 
according to embedded key(s) in the record, through the Program 
Product DOS/VS Sort-Merge (Program Number 5746-SMl) . Special 
processing of merged records can also be specified. Both 
standard sequential files and sequentially accessed VSAM files 
can be designated as input or output. 

• Added System/37 Q Device Support — including the following 
devices: 

(1) 5425 Multifunction Card Unit (MFCU) — for 96-column cards, 
with read/punch/print/select features and combined function 
processing. Without the combined function features, the 
51*25 MFCU can be used as a backup reader or as a punch. 
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DOS FULL AMERICAISl NATIONAL STANDARD COBOL VERSIOiSl 3 : this Program 
Product Compiler includes the following features : 

Release 3 : The following features are included in this release: 

• Additional System/37 Device Support — including the following: 

(1) 2560 Multifunction Card Machine MFCM) — for 80-column 
cards. Read/punch/print/select features, and combined 
function processing are supported. Without the combined 
function processing feature, the 2560 MFCM can be used as a 
backup reader or as a punch. 

(2) 350t| Reader with O MR (Optical Mark Read) feature — the 
compiler can use the 3504 without the OMR feature as the 
SYSIPT device. 

(3) 3 881 Optical Mark Reader (OMR) — which reads hand-written 
or machine- printed marks on paper documents. When equipped 
with the optional BCD feature, the 3881 OMR can also read 
binary coding. 

• Generic Key Facility for Indexed Files — sequential record 
retrieval can be requested using a search argument comprised of 
a user-specified number of high-order characters (generic 
portion) of the NOMINAL KEY. The user need not specify a full 
or exact search key- 



iz 



• Enhanced Coir.piler Output — including date, start-time of 
compilation and program-id on every source listing page- 
Compiler statistics are also available, and the date and time of 
compilation are carried as constants in the object module, so 
that the object module can be associated with an output listing - 

• M aintainability Improvements -- the installation can set the 
compiler default options by cataloging them into the source 
statement library. 

Base Compiler Features : the following features are continued from 
Release 1 and Release 2. 

• Improvements in Object Code to save main storage: 

(1) Optimized Object Code — which results, when specified, in 
up to 30% space saving in object program generated code 
and global tables as compared with Version 2. The space 
saved depends on the number of referenced procedure-names 
and branches, and on 01-level data names. 

(2) System/370 Support can be requested, to take advantage of 
the System/370 instruction set. When such support is 
requested, System/37 instructions particularly suited to 
COBOL programming are generated to replace the equivalent 
object-time subroutines and instructions needed when 
running under System/360. The System/370 instructions 
save up to 12% of generated object program space, plus the 
space no longer needed by the subroutines. 

(3) . Double-Buff ered ISAM *-- allows faster sequential 
processing . of indexed files. 

(U) Improvements in the MOVE Statement and in Comparisons — 
when a MOVE statement or a comparison involves a one-byte 
literal, generated code for the move and the comparison 
has been improved. This saves object program space. 

• Alphabetized Cross-Ref erence Listing (SXREF) — for easier 
reference to user-specified names in a program. SXREF perforjns 
up to 25 times faster than previous Version 2 source-ordered 
cross-reference (XREF). Version 3 XREF performance is improved 
by at least the same amount. The larger the source program, the 
more that performance is improved. Total compilation time is up 
to 2 times faster. 
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• D ebugging Facilities that are more powerful and flexible 

(1) Symboli c Deb ug Feature — which provides a symbolic 
formatted dump at abnormal termination, or a dynamic dump 
during program execution. 

(2) Flow Trace Option — a formatted trace can be requested 
for a variable number of procedures executed before 
abnormal termination. 

(3) Statement Nu m ber Option — provides information about the 
COBOL Statement being executed at abnormal termination. 

(U) Expanded CL I ST and SYM — for more detailed information 
about the Data Division and Procedure Division. 

(5) Relocation Factor — can be requested to be included in 
addresses on the object code listing for easier debugging. 

(6) Working-Stora g e Location and Size — When CLIST and SYM 
are in effect, the starting address and size of 
Working-Storage are printed. 

• System/370 Device Su pp ort -- the following devices can be 
specified: 

3211 — 150-character printer 

2319, 3330 — mass storage (direct access) facilities 

3410, 3420 — tape utility devices 

3505, 3525 -- advanced unit-record devices 

• ASCII Support -- allows creation and retrieval of tape files 
written in the American National Standard Code for Information 
Interchange (ASCII). 

• Separ ately Signed Numeric Data Typ& — for more flexible numeric 
data description* The sign can be a separate character or ar, 
overpunch, and can be leading or trailing. 

The DOS Full American National Standard COBOL Compiler and 
Library are packaged as two separate Program Products. The 
Compiler is Program Product Number 5736-CB2; the Library is 
Program Product Number 5736-LM2. 
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INTRODUCTION 



In 1959, a group of computer professionals, representing the U.S. 
Government, manufacturers, universities, and users, formed the 
Conference On DAta SYstems Language (CODA.SYL) . At the first meeting, 
the conference agreed upon the development of a common language for the 
programming of commercial problems. The proposed language would be 
capable of continuous change and development, it would be problem- 
oriented and machine-independent, and it would use a syntax closely 
resembling English, avoiding the use of special symbols as much as 
possible. The common Business Oriented Language (COBOL) which resulted 
met most of these requirements. 

As its name implies, COBOL is especially efficient in the processing 
of business problems. Such problems involve relatively little algebraic 
or logical processing; instead, they usually manipulate large files of 
similar records in a relatively simple way. This means that COBOL 
emphasizes the description and handling of data items and input/output 
records . 

In the years since 1959, COBOL has undergone considerable refinement 
and standardization, and a standard COBOL has been approved by ANSI 
(American National standards Institute) , an industry-wide association of 
computer manufacturers and users; this standard is called American 
National Standard COBOL, X3. 23-1968. 

This publication explains IBM Full American National Standard COBOL, 
which is compatible with the highest level of American National Standard 
COBOL and includes a number of IBM extensions to it as well. The 
compiler supports the processing modules defined in the standard. These 
processing modules include: 

NUCLEUS — which defines the permissible character set and the basic 
elements of the language contained in each of the four COBOL divisions j 
Identification Division, Environment Division, Data Division, and 
Procedure Division. 

TABLE HANDLING — which allows the definition of tables and making 
reference to them through subscripts and indexes. A convenient method 
for searching a table is provided. 

SEQUENTIAL ACCESS — which allows the records of a file to be read or 
written in a serial manner. The order of reference is implicitly 
determined by the position of the logical record in the file. 

RANDOM ACCESS — which allows the records of a file to be read or 
written in a manner specified by the programmer. Specifically defined 
keys, supplied by the programmer, control successive references to the 
file. 

SORT — which provides the capability of sorting files in ascending 
and/or descending order. This feature also includes procedures for 
handling such files both before and after they have been sorted. 

REPORT WRITER — which allows the programmer to describe the format of a 
report in the DATA DIVISION, thereby minimizing the amount of PROCEDURE 
DIVISION coding necessary. 

SEGMENTATION — which allows large problem programs to be split into 
segments that can then be designated as permanent or overlayable core 
storage. This assures more efficient use of core storage at object 
time. 
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LIBRARY — which supports the retrieval and updating of pre-written 
source program entries from a user's library, for inclusion in a COBOL 
program at compile time. The effect of the compilation of library text 
is as though the text were actually written as part of the source 

program. 

In this publication, the features included in the iiUCLEUS, SEQUENTIAL 
ACCESS, and RANDOM ACCESS modules are presented as part of the 
discussion of "Language Considerations" and of the four divisions of a 
COBOL program. The other five modules — TABLE HANDLING, SORT, REPORT 
WRITER, LIBRARY, and SEGMENTATION — are presented as separate features 
of American National Standard COBOL. 

This manual describes all versions of IBM System/3b0 Disk Operating 
System Full American National Standard COBOL. All information relating 
to the Program Product Version 3 compiler is presented within separate 
paragraphs. Such paragraphs begin with the heading "Program Product 
Information — Version 3," and all following paragraphs pertaining to 
such information are indented. All information relating to the DOS/VS 
COBOL compiler and Library Program Product is included in the separate 
chapter, "" " " " "" " '""" 

This chapter gives the reader a general understanding of the 
principles of IBM Full American National Standard COBOL (hereinafter 
simply termed "COBOL"). It introduces the reader to COBOL and 
demonstrates some of the ways in which the language can be used in the 
solution of commercial problems. This discussion does not define the 
rules for using COBOL, but rather attempts to explain the basic concepts 
of the language through relatively simple examples. 

The reader who has an understanding of the principles of currently 
implemented versions of COBOL may wish to go directly to "Language 
Considerations." Other readers will find many concepts discussed in 
this chapter of help in using the detailed instructions throughout the 
rest of this manual. 



PRINCIPLES OF COBOL 

COBOL is one of a group of high-level computer languages. Such 
languages are problem oriented and relatively machine independent, 
freeing tne programmer from many of the machine oriented restrictions of 
assembler language, and allowing him to concentrate instead upon the 
logical aspects of his problem. 

COBOL looks and reads much like ordinary business English. The 
programmer can use English words and conventional arithmetic symbols to 
direct and control the complicated operations of the computer. The 
following are typical COBOL sentences: 

ADD DIVIDENDS TO INCOME. 

MULTIPLY UNIT-PRICE BY STOCK-ON-HAND 

GIVING STOCK- VALUE. 
IF STOCK-ON-HAND IS LESS THAN ORDER-POINT 
MOVE ITEM- CODE TO REORDER- CODE. 

Such COBOL sentences are easily understandable, but they must be 
translated into machine language — the internal instruction codes — 
before they can actually be used. 

A special systems program, known as a compiler, is first entered into 
the computer. The COBOL program (referred to as the source program) is 
then entered into the machine, where the compiler reads it and analyzes 
it. The COBOL language contains a basic set of reserved words and 
symbols. Each combination of reserved words and symbols is transf orm.ed 
by the compiler into a definite set of usable machine instructions. xn 
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effect, the programmer has at his disposal a whole series of 
"prefabricated" portions of the machine-language program he wishes the 
compiler to construct. 

When he writes a COBOL program, he is actually directing the compiler 
to bring together, in the proper sequence, the groups of machine 
instructions necessary to accomplish the desired result. From the 
programmer's instructions, the compiler creates a new program in machine 
language. This program is known as an object program. 

Once the object program has been produced, it may be used at once, or 

it may be recorded on some external medium and stored for future use. 

When it is needed, it can then be called upon again and again to process 
data. 

Every COBOL program is processed first when the compiler translates 
the COBOL program into machine language (compile time) , then when the 
machine language program actually processes the data (execution time). 

A. simple example illustrates the basic principles of translating a 
COBOL sentence. To increase the value of an item named INCOME -by the 
value of an item named DIVIDENDS, tne COBOL programmer writes the 
following sentence: 

M)D DIVipENDS TO INCOME. 

Before the compiler can interpret this sentence, it must be given 
certain information. The programmer describes the data .represented by 
the names DIVIDENDS and INCOME in such a way that the compiler can 
recognize it, obtain it when needed, and treat it in accordance with its 
special characteristics. 

First, the compiler examines the word ADD. It determines whether or 
not ADD is one of the COBOL reserved words, that is, words that have 
clearly defined meanings in COBOL (rather than a word like DIVIDENDS, 
which is defined by the programmer) . ADD is a special kind of reserved 
word — a COBOL key word. Therefore, the compiler generates the machine 
instructions necessary to perform an addition and inserts them into the 
object program. 

The compiler next examines the word DIVIDENDS. Because the 
programmer has supplied data information about DIVIDENDS, the compiler 
knows where and how DIVIDENDS information is to be placed in core 
storage, and it inserts into the object program the instructions needed 
in order to locate and obtain the data. 

When the compiler encounters the word TO, it again determines whether 
or not this is a COBOL reserved word. It is such a word, and the 
compiler interprets it to mean that the value represented by the name 
following the word TO, in this case INCOME, must be increased as a 
result of the addition. 

The compiler next examines the word INCOME. .Again, it has access to 
data information about the word. As a result, it is able to place in 
the object program the instructions necessary to locate and use INCOME 
data. 

The programmer placed a period after the word INCOME. The effect of 
the period on the COBOL compiler is similar to its effect in the English 
language- The period tells the compiler that it has reached the last 
word to which the verb ADD applies, the end of the sentence. 

The logical steps we have described are performed by the compiler in 
creating the object program, although they might not be performed in 
exactly this sequence. All these preparatory steps are required only in 
creating the object program. Once created, the object program is used 
for the actual processing and may be saved for future reference. The 
source program is not required further, unless the programmer makes a 
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change in it; in that case, it must be compiled again to create a new 
object program. 

When the machine-language instruction for ADD is actually performed 
at execution time, the instruction is executed in either of two ways, 
depending on the format of the data: 

1. It directly adds the value of DIVIDENDS to the value of the data 
representing INCOME, thus giving the new value of INCOME. 

or 

2. It moves the data representing INCOME into a special work area, or 
register; then DIVIDENDS is added to it to create the sum, after 
which the new value of INCOME is returned to the proper area in 
storage. 

In this simple example, the object program could add the two specified 
items with very few machine instructions. In actual practice, however, 
some complex COBOL sentences produce dozens of machine instructions. 
Then, too, a computer can be instructed to repeat a procedure any number 
of times. A few COBOL sentences can start the computer on operations 
that could process millions of data records rapidly and accurately = 



A SAMPLE COBOL PROGRAM 

COBOL is based on English; it uses English words and certain syntax 
rules derived from English. However, because it is a computer language, 
it is much more precise than English. The programmer must, therefore, 
learn the rules that govern COBOL and follow them exactly. These rules 
are detailed later, beginning in the next chapter. The rest of this 
chapter gives a general picture of how a COBOL program is put together. 

The basic unit of COBOL is the word — which may be a COBOL reserved 
word or a programmer- defined word. Reserved words have a specific 
syntactical meaning to the COBOL compiler, and must be spelled exactly 
as shown in the reserved word list (see Appendix C) . Programmer-defined 
words are assigned by the user to such items as data-names and 
procedure- names; they must conform to the COBOL rules for the formation 
of names . 

Reserved words and programmer-defined words are combined by the 
programmer into clauses (in the Environment and Data Divisions) and 
statements (in the Procedure Division) ; clauses and statements must be 
formed following the specific syntactical rules of COBOL. A clause or a 
statement specifies only one action to be performed, one condition to be 
analyzed, or one description of data. Clauses and statements can be 
combined into sentences. Sentences may be simple (one statement or one 
clause) , or they may be compound (a combination of statements or a 
combination of clauses). Sentences can be combined into paragraphs, 
which are named units of logically related sentences, and paragraphs can 
be further combined into named sections. Both paragraphs and sections 
can be referred to as procedures, and their names can be referred to as 
procedure names. Procedures (sections and paragraphs) are combined into 
divisions. 

There are four divisions in each COBOL program. Each is placed in 
its logical sequence, each has its necessary logical function in the 
program, and each uses information developed in the divisions preceding 
it. The four divisions and their sequence are: 

IDENTIFICATION DIVISION. 
ENVIRONMENT DIVISION. 
DATA DIVISION. 
PROCEDURE DIVISION. 
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To illustrate how a COBOL program is written, let us create a 
simplified procedure to record changes in the stocks of office furniture 
offered for sale by a manufacturer. We will need such data items as an 
item code to identify each type of product, an item name corresponding 
to the code, the unit price of each item of stock, the reorder point at 
which the manufacturer replaces each item, and the amount of stock on 
hand plus its value for each item. Our procedure will update a 
MASTER-FILE of all stocks the manufacturer carries by reading a 
DETAIL-FILE of current transactions, performing the necessary 
calculations, and placing the updated values in the MASTER-FILE. We 
will also create an ACTION-FILE of items to be reordered. The 
MASTER-FILE resides on a direct access (mass storage) disk device; the 
DETAIL-FILE and ACTION-FILE reside on tape devices. 

Many of the examples used in the following discussion have been 
simplified for greater clarity. Figure 4, at the end of this chapter, 
shows how the entire UPDATING program would actually be written. 



Identification Division 



First we must assign a name to our program, presenting the 
information like this: 

IDENTIFICATION DIVISION. 
PROGRAM-ID. UPDATING. 

PROGRAM-ID informs the compiler that we have chosen the unique name 
UPDATING for the program we have written. 

In addition to the name of the program, the Identification Division 
allows us to list the name of the programmer, the date the program was 
written^ and other information that will serve to document the program. 



Environment Division 

Although COBOL is, to a large degree, machine independent, there are 
some aspects of any program that depend on the particular computer being 
used and on its associated input/output devices. In the Environment 
Division, the characteristics of the computer used may be identified. 
The location of each file referenced in the program, and how each one of 
them will be used, must be described. 

First we will describe the source computer (the one the compiler 
uses) and the object computer (the one the object program uses) as 
follows: 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-360-F50. 
OBJECT- COMPUTER. IBM-360-F50. 

This tells us that both computers will be an IBM System/360 model F50. 

Next we must identify the files to be used in our program, and assign 
them to specific input/output devices. This is done in the Input-Output 
Section. 
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INPUT-OUTPUT SECTION. 
FILE -CONTROL. 

SELECT MASTER-FILE, ASSIGN TO 

ACCESS MODE IS RANDOM 

ACTUAL KEY IS FILEKEY. 

SELECT DETAIL-FILE, ASSIGN TO 

ACCESS MODE IS SEQUENTIAL. 

SELECT ACTION-FILE, ASSIGN TO 



The ellipses (...) in the three foregoing ASSIGN clauses indicate the 
omission of system- name, an item too complex to illustrate here. 
System-name is in a special format, and it tells the compiler on which 
symbolic unit the file will be found, on what kind of device the file 
resides, and in what way the data is organized within the file. 

Our MASTER-FILE resides on a disk pack, which is a mass storage 
device. Access for these devices can be either RANDOM or SEQUENTIAL. 
If ACCESS MODE IS RANDOM, then each record within the file can be 
located directly through the use of a key (identified in the statement 
ACTUAL KEY IS FILEKEY). For our program we have named this key FILEKEY, 
and later in the Data Division we will describe it fully. During the 
processing of our object program, each record will be made available to 
the user in the sequence that the keys are presented to the system. 

Our DETAIL-FILE and our ACTION-FILE reside on tape. This means that 
ACCESS MODE must be sequential. On tape it is necessary to refer to 
each successive record in the file in order to find any individual 
record we might wish to access. Since the compiler assumes that the 
ACCESS MODE is sequential unless specified otherwise, the ACCESS MODE 
clause is never needed in describing a tape file. 



Data Division 



The Data Division of the COBOL program gives a detailed description 
of all the data to be used in the program — whether to be read into the 
machine, used in intermediate processing, or written as output. To 
simplify this discussion, we will describe only the two most important 
aspects of data description. 

1. We will inform the compiler that we intend to work with one kind of 
input record, our detail record; one kind of update record, our 
master record; and one kind of output record, our action record. 

2. We will assign data-names to each of the items of data to be used. 



First, we must organize the two input records — a MASTER-RECORD and 
a DETAIL-RECORD. The MASTER- RECORD will be derived from ledger records 
that look like those shown in Figure 1. 
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Item 
Code 



Item Name 



1 Stock 
I on 
I Hand 
+ 

2-drawer file cabinets | 100 

3-drawer file cabinets j 175 

4-drawer file cabinets | 200 

I 

Secretarial desks | 150 

Salesmen's desks j 50 

Executive desks j 75 

I 

Secretarial posture chairs | 125 

Side chairs j 50 

Executive swivel chairs 25 



Unit 

Price 

($) 



Stock 

Value 

($) 



Order 
Point 



?iLlO 

All 
A.12 

BIO 
Bll 
B12 

CIO 
Cll 
C12 



50 

80 

110 

200 
175 
500 

50 

40 

150 



5,000 
14,000 
22,000 

30,000 

8,750 

37,500 

6,250 
2,000 
3,750 



50 

80 

150 

120 
50 
60 

140 
60 
20 



Figure 1. Typical Ledger Records Used for MASTER- RECORD 



There will be a MASTER-RECORD for each item in this list. In 
defining the data for the compiler, we will make sure that each record 
is in the same format as all the others. Thus, if we specify the 
characteristics of a single record, we will have specified the 
characteristics of the whole set. In this way, all of the master 
records can be organized into a data set, or file, that we will name 
MASTER-FILE. Each complete record within the file we will name the 
MASTER- RECORD, with the individual items of data grouped within it. 
Accordingly, we will begin our Data Division as follows: 

DATA DIVISION. 

FILE SECTION. 

FD MASTER-FILE DATA RECORD IS MASTER- RECORD. . . 



01 MASTER- RECORD. 

02 ITEM-CODE... 

02 ITEM-NAJyiE. . . 

02 S TOCK- ON- HAND . . . 

02 UNIT-PRICE... 

02 STOCK- VALUE. . . 

02 ORDER- POINT... 



The FILE SECTION entry informs the COBOL compiler that the items that 
follow will describe the format of each file and of each record within 
each file to be used in the program. The level indicator FD (File 
Description) introduces the MASTER-FILE itself, and tells the compiler 
that each entry within MASTER- FILE will be referred to as MASTER- RECORD. 
The entry with level number 01 identifies the MASTER- RECORD itself, and 
the subordinate entries with level number 02 describe the subdivisions 
within the complete MASTER-RECORD. The concept of levels is a basic 
attribute of COBOL. The highest level is the FD, the next highest level 
is 01. Level numbers from 02 through 4 9 may subdivide the record, and 
the subdivisions themselves can be further subdivided if need be. The 
smaller the subdivision, the larger the level number must be. 

Each of the data items would actually be described more fully than is 
shown here. In an actual program, for example, we would inform the 
compiler that each of the items identified as STOCK- ON- HAND, UNIT-PRICE, 
STOCK- VALUE, and ORDER-POINT would represent positive numeric values of 
a specific size in a specific form, and so forth. At this point, we 
need not concern ourselves with these details. 
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The MASTER-FILE is the main record of current inventory. Changes to 
this record are made by entering the details of individual transactions 
or groups of transactions. Thus, receipts of new stocks and shipments 
to customers will change both STOCK- ON-HAND and STOCK- VALUE. These 
changes are summarized in the detail record for each item. A typical 
record would appear in a ledger as shown in Figure 2. 



r T T T -[ 

I Item I III 
I Code I Item Name | Receipts j Shipments | 
Y + + ^ ^ 

|B11 I Salesmen's desks | 25 | 15 | 
L X X X J 

Figure 2. Typical DETAIL-RECORD 



We will therefore organize a DETAIL-FILE, made up of individual items 
to be referred to as DETAIL-RECORD. DETAIL-FILE will be arranged by 
ITEM-CODE in ascending numerical order. 

FD DETAIL-FILE DATA RECORD IS DETAIL-RECORD... 
01 DETAIL-RECORD. 

02 ITEM-CODE.. - 

02 ITEM- NAME... 

02 RECEIPTS... 

02 SHIPMENTS... 

The ACTION-FILE will contain a list of items to be reordered, plus 
relevant data: 

FD ACTION-FILE DATA RECORD IS ACTION^ RECORD. . . 
01 ACTION-RECORD. 

02 ITEM- CODE. . . 

02 ITEM- NAME... 

2 STOCK- ON- HAND . . . 

02 UNIT-PRICE. . . 

02 ORDER-POINT... 

This completes the description of the files we will use. 

Note that the names of data items contained within the files are in 
many cases identical. Yet each name within each file must be unique, or 
ambiguities in references to them will occur. Since identical names are 
used in our data descriptions, we must use a special means of 
distinguishing between them. The COBOL naming system, with its concept 
of levels, allows us to make this distinction by reference to some 
larger group of data of which the item is a part. Thus, ITEM-CODE OF 
MASTER- RECORD, and ITEM-CODE OF DETAIL- RECORD, and ITEM-CODE OF 
ACTION-RECORD can be clearly differentiated from each other. The use of 
a higher level name in this way is called qualification. Qualification 
is required in making distinctions between otherwise identical names. 

Now we must construct the Working-Storage Section of our Data 
Division. This section. describes records and data items that are not 
part of the files, but are used during the processing of the object 
program. 

For our program, we will need several entries in our Working-Storage 
Section. Among them will be several items constructed with level 
numbers, similar to those used to describe the file records. 
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WORKING- STORAGE SECTION. 



77 QUOTIENT.. 



01 THE-KEY. . . 

02 FILLER... 

02 FILEKEY... 
01 ERROR-MESSAGE. 

02 ERROR- MESSAGE- 1. 

02 ERROR-MESSAGE-2. 

02 ERROR- MESS AGE- 3. 



We will use THE-KEY record in constructing the FILEKEY. The 
ERROR-MESSAGE record we will use to create warning messages when errors 
are encountered during object time processing. The data item named 
QUOTIENT we have assigned the level number 77. This level number 
informs the compiler that QUOTIENT is a noncontiguous data item — that 
is, that this item has no relationship to any other data item described 
in the Working-Storage Section. Note that the data items related to 
each other must be listed after all the noncontiguous data items. 



Procedure Division 



The Procedure Division contains the instructions needed to solve our 
problem. To accomplish this, we will use several types of COBOL 
statements. In constructing our sample program, we will discover how 
each type of statement can be used to obtain the results we want. 



Beginning the Program — Input Operations 



Our first step in building the Procedure Division is to make the 
records contained in the MASTER-FILE and the DETAIL-FILE available for 
processing. If we write the statements: 

PROCEDURE DIVISION. 



OPEN INPUT DETAIL-FILE. 
OPEN I-O MASTER-FILE. 



the system establishes a line of communication with each file, checks to 
make sure that each is available for use, brings the first record of the 
DETAIL-FILE file into special areas of internal storage known as 
buffers, and does other housekeeping. 
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The files can now be accessed. Our next statements will therefore 
be: 

READ DETAIL-FILE AT END GO TO END-ROUTINE. 



READ MASTER-FILE INVALID KEY PERFORM INPUT-ERROR 
GO TO ERROR- ROUTINE-1. 

At this point in our program, these two statements make available for 
processing the first record from each file. (Note that the AT END 
phrase and the INVALID KEY phrase are necessary in these sentences. 
Their use will be explained later.) We are now able to begin arithmetic 
operations upon the data. 



Arithmetic Statements 



We have already seen that the COBOL language contains the verb ADD. 
Using this verb, we can add RECEIPTS to STOCK-ON-HAND by writing the 
COBOL statement: 

ADD RECEIPTS TO STOCK-ON-HAND. 

This instructs the program to find the value of RECEIPTS in the 
DETAIL- RECORD and add it to the value of STOCK-ON- HAND in the 
MASTER-RECORD. (For the sake of brevity, this example and the ones 
following have been simplified by omitting the name qualification which 
would be necessary in actual coding. Figure U, at the end of this 
chapter, shows the actual coding necessary.) 

Next we must reduce the new value of STOCK-ON-HAND by the amount of 
SHIPMENTS. The COBOL verb SUBTRACT will accomplish this result for us, 
and so we write: 

SUBTRACT SHIPMENTS FROM STOCK-ON- HAND. 

These two statements, carried out in succession, will produce a current 
value for STOCK- ON- HAND. 

Actually, there is a more concise way to perform this particular 
calculation. We have broken it into two steps, but COBOL provides 
another verb which allows us to specify more than one arithmetic 
operation in a single statement. This is the verb COMPUTE. 

COMPUTE STOCK-ON-HAND = STOCK-ON-HAND + RECEIPTS - SHIPMENTS. 

A COMPUTE Statement is always interpreted to mean that the value on 
the left of the equal sign will be cnanged to equal the value resulting 
from the calculation specified on the right. The calculation on the 
right of the equal sign is evaluated from left to right. That is, in 
our example, the addition is performed first and then the subtraction. 

The name STOCK-ON- HAND occurs twice in this sentence, but this causes 
no difficulty. The expression to the right is calculated first; thus, 
it is the current value of STOCK-ON- HAND that is used as the basis for 
computing the new value. When this new value has been calculated, it 
replaces the old value of STOCK-ON-HAND in the MASTER- RECORD. 

21 Introduction 



So far we have brought only the value of STOCK-ON-HAND up to date, 
but a change in this value will also cause a change in STOCK- VA.LUE. We 
will assume that this figure does not include allowances for quantity 
discounts, damage to stock, or other such factors, and that STOCK- VALUE 
is nothing more than the unit price multiplied by the number of items 
currently in stock. COBOL provides us with a MULTIPLY verb, which 
permits us to accomplish this: 

MULTIPLY STOCK-ON- HAND BY UNIT- PRICE GIVING STOCK-VALUE. 



The result of the multiplication will be placed in the MASTER-RECORD as 
the new value of STOCK-VALUE. Within the program, this statement must 
be executed after the COMPUTE statement we wrote earlier, since 
STOCK-ON-HAND must be the updated, not the original, value. 



Conditional Statements 

There are instructions in COBOL that examine data to determine 
whether or not some condition is present and, depending on what is 
found, to carry out an appropriate course of action. 

The MASTER- RECORD contains an item called ORDER-POINT. An item is to 
be reordered when its stock has been reduced either to or below its 
order point. Let us assume that we have written a procedure for 
initiating such an order, and that we have given the name 
REORDER-ROUTINE to this procedure. We then write the following two 
sentences: 

IF STOCK- ON- HAND IS LESS THAN ORDER- POINT 

PERFORM REORDER- 1... 
IF STOCK-ON-HAND IS EQUAL TO ORDER-POINT 

PERFORM REORDER- 1... 

in order to compare the present value of STOCK-ON-HAND with the value of 
ORDER-POINT. If STOCK-ON-HAND is a smaller value, the COBOL verb 
PERFORM causes a transfer of control to the paragraph named REORDER-1. 
If STOCK-ON- HAND is not less than ORDER-POINT, our next instruction is 
evaluated. If the values are equal, control is transferred to 
REORDER-1. If the values are not equal, control is transferred to the 
next instruction. 

It is permissible, in COBOL, to combine the two tests into one: 

IF STOCK-ON-HAND IS LESS THAN ORDER-POINT OR EQUAL TO 
ORDER-POINT PERFORM REORDER-1... 

Here we are writing a compoiind condition with an implied subject. 
STOCK- ON- HAND, the s\ibject of the first condition, is understood to be 
the subject of the second condition as well. Compound conditions 
increase the flexibility of COBOL and make the handling of many kinds of 
problems easier. 

In this example, we tested successively for two conditions out of 
three. Unless the programmer has some need to distinguish between these 
two conditions (and he might) , it would be simpler to test for the third 
condition instead: 

IF STOCK-ON-HAND IS GREATER THAN ORDER-POINT NEXT SENTENCE 
ELSE PERFORM REORDER-1... 
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The words NEXT SENTENCE have a special meaning in COBOL. When IF 
STOCK-ON-HAND IS GREATER THAN ORDER-POINT is true, NEXT SENTENCE takes 
effect. Every instruction in the balance of the IF sentence is ignored, 
and control is transferred to the sentence following. 

The test can be simplified even further, since COBOL allows us to 
express negation: 

IF STOCK-ON-HAND IS NOT GREATER THAN ORDER-POINT 
PERFORM REORDER- 1. . . 



If the value of STOCK-VALUE is less than or equal to that of 
ORDER- POINT, control is transferred to REORDER-1. If the value is 
greater, control automatically passes to the next successive sentence. 

The actual rules for specifying tests and comparisons will be given 
in a subsequent chapter. 



Handling Possible Errors 



Let us write one more conditional statement: 

IF STOCK-ON-HAND IS LESS THAN ZERO... 
GO TO ERROR- WRITE. 



One would expect that the smallest value STOCK-ON-HAND could assume 
would be zero. If a negative record were processed, the values found 
would probably be completely erroneous. To prevent this, the programmer 
could anticipate the possibility of error and write a special routine to 
be executed whenever the value of STOCK-ON-HAND was found to be 
negative. Such a routine could stop the processing of this record, 
print out the erroneous data, and proceed automatically to process the 
records following. The more comprehensive a programmer makes his error 
checking, the less likely it is that inaccurate information will pass 
through without being marked for special attention. 



Data-Manipulation Statements 



We saw in the foregoing that if the value of STOCK-ON-HAND fell below 
a certain point, control would be passed to a special sequence of 
instructions named REORDER-1. Our output ACTION-FILE has been set up 
for just this purpose. The bulk of REORDER-1 could consist of 
data-manipulation statements; that is, instructions which move the 
necessary data items from the MASTER-RECORD area in storage to that area 
reserved for the ACTION-FILE records. The COBOL verb MOVE can be used 
to accomplish this. We must explain here that the verb MOVE does not 
mean an actual physical movement of data. Instead, it means that the 
data items from MASTER- RECORD are copied into ACTION- RECORD. Items 
within MASTER-RECORD are not destroyed when a MOVE statement is 
executed, and are available for further processing. Individual items 
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contained in ACTION-RECORD before the operation, however, are replaced 
when the statement is executed. Our MOVE statements will be written: 

MOVE ITEM-CODE OF MASTER-RECORD TO ITEM-CODE 

OF ACTION- RECORD. 
MOVE ITEM-NAME OF MASTER-RECORD TO ITEM-NAME 

OF ACTION- RECORD. 
MOVE STOCK-ON- HAND OF MASTER-RECORD TO 

STOCK-ON- HAND OF ACTION- RECORD. 
MOVE UNIT-PRICE OF MASTER-RECORD TO UNIT-PRICE 

OF ACTION- RECORD. 
MOVE ORDER-POINT OF MASTER-RECORD TO ORDER-POINT 

OF ACTION- RECORD. 



With these five statements, we have set up the ACTION-RECORD to be 
written in the ACTION-FILE. However, there is another and easier method 
for the programmer to specify the five MOVE operations by taking 
advantage of the qualification system in naming: 

MOVE CORRESPONDING MASTER-RECORD TO ACTION- RECORD. 

The word CORRESPONDING indicates that those data items with names which 
are identical in both records are to be copied from MASTER-RECORD into 
ACTION- RECORD. Thus, five MOVE Statements are replaced by one. 



When all arithmetic and data-manipulation statements have been 
executed, we will write the results in some form. COBOL allows us to do 
this with a WRITE instruction. 

WRITE MASTER-RECORD INVALID KEY . . . 
GO TO ERROR -WRITE. 

Or, if we were to indicate that an item was to be reordered, we could 
write the following: 

WRITE ACTION-RECORD. 

In either case, the record would be recorded on the output device 
specified for the file in the Environment Division; its format would be 
determined by the Data Division description of the file. 
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Procedure Branching Statements 



In our inventory problem, there will be as many master records as 
there are kinds of furniture in stock, and there will be a varying 
number of detail records. We must read each successive DETAIL-RECORD in 
DETAIL-FILE, until every one of the records in the file has been 
processed. 

Each time a DETAIL- RECORD is read, we will perform calculations upon 
its ITEM-CODE in order to produce our FILEKEY. FILEKEY will then be 
used to find a matching record in MASTER-RECORD. If a matching record 
cannot be found, either the DETAIL-RECORD is in error, or the 
MASTER-RECORD is missing from the file and we must mark that record for 
special processing. Consider the series of statements in Figure 3. 

You will note that several new elements have been added to the 
arithmetic statements and conditional phrases we have already discussed. 
First, there are the elements that extend to the left of the other 
statements. These elements are the procedure-names we described 
earlier. Each procedure-name indicates the beginning of a paragraph or 
a section within the program, and each indicates a reference point for 
programmer-specified transfer of control. When a procedure is entered, 
each logically successive instruction is processed in turn. 

The procedure-names give us a means of controlling the processing of 
successive items in our DETAIL-FILE. If, for example, we have finished 
processing one complete DETAIL-RECORD and wish to begin processing the 
next, control must be transferred to NEXT-DETAIL- RECORD-ROUTINE. This 
is accomplished through the use of the COBOL verb GO TO, which transfers 
control to the procedure indicated, as in the statement: 

GO TO NEXT-DETAIL- RECORD-ROUTINE. 

Processing then continues with the first sentence following the 
procedure name NEXT-DETAIL- RECORD- ROUTINE. Note the many other examples 
of the GO TO statement in our program. Each gives us the means of 
transferring control from one procedure to another. 

Another way in which to control the processing of a series of records 
is through the use of the COBOL verb PERFORM. Like the verb GO TO, the 
verb PERFORM specifies a transfer to the first sentence of a routine. 
In addition, PERFORM provides various ways of determining the manner in 
which the procedure is to be processed. 

Within the COMPUTATION-ROUTINE, there is a statement which uses the 
COBOL verb PERFORM: 

IF STOCK-ON-HAND IN MASTER-RECORD IS LESS THAN ZERO 
PERFORM DATA-ERROR GO TO ERROR- WRITE. 

When STOCK-ON-HAND is computed to be less than zero, an error condition 
has occurred. First, the compiler is instructed to transfer control to 
a procedure named DATA-ERROR. Within DATA- ERROR, there is a MOVE 
statement which copies the characters within quotation marks ("DATA 
ERROR ON INPUT ") into the area of storage reserved for ERROR- MESS AGE- 1. 
(The characters within quotation marks are what is known as a literal — 
because they literally mean themselves. When ERROR- ^iESS AGE is 
displayed, these words .will be an actual part of the error message.) 
Control is now transferred back to the next statement following the 
PERFORM statement, which is the GO TO ERROR-WRITE statement. 
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NEXT- DETAIL-RECORD- ROUTINE . 

READ DETAIL-FILE AT END GO TO END-ROUTINE- 1. 



READ MASTER-FILE INVALID KEY PERFORM INPUT-ERROR 
GO TO ERROR-WRITE. 
COMPUTATION-ROUTINE . 



IF STOCK-ON-HAND IN MASTER-RECORD IS LESS THAN ZERO 
PERFORM DATA-ERROR GO TO ERROR-WRITE - 



IF STOCK-ON-HAND IN MASTER-RECORD IS NOT GREATER THAN 
ORDER-POINT IN MASTER-RECORD PERFORM REORDER-1 
THRU REORDER- 2. 
WRITE-MASTER-- ROUTINE. 



GO TO NEXT-DETAIL-RECORD-ROUTINE. 
REORDER-1 . 

GO TO SWITCH-ROUTINE. 
SWITCH-ROUTINE. 

ALTER REORDER-, 1 TO REORDER- 2 

END-ROUTINE-1 TO END-ROUTINE-3 . 

OPEN OUTPUT ACTION-FILE. 
REORDER- 2. 

MOVE CORRESPONDING MASTER- RECORD TO ACTION- RECORD. 

WRITE ACTION- RECORD. 
ERROR- WRITE. 



GO TO NEXT-DETAIL- RECORD- ROUTINE. 
INPUT-ERROR. 

MOVE " KEY ERROR ON INPUT " TO ERROR-MESSAGE-1 , 



DATA- ERROR. 

MOVE "DATA ERROR ON INPUT " TO ERROR-MESSAGE-1. 



END-ROUTINE-1. 

GO TO END-ROUTINE- 2. 
END-ROUTINE-3. 

CLOSE ACTION-FILE. 
END- ROUTINE- 2. 

CLOSE DETAIL-FILE. 

CLOSE MASTER- FILE. 

STOP RUN. 

Figure 3. Illustration of Procedure Branching 
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Note that within COMPUTATION-ROUTINE there is another PERFORM 
statement that is processed in a similar manner: 

IF STOCK-ON-HAND IN MASTER-RECORD IS iTOT GREATER THAN 
ORDER- POINT IN MASTER- RECORD 
PERFORM REORDER-1 THRU REORDER-2. 

This time, the PERFORM statement instructs the object program to 
process several paragraphs before returning control to the next 
successive statement. Thus, when this PERFORM statement is executed, 
control is transferred to REORDER-1. This paragraph is executed, the 
next paragraph, SWITCH- ROUTINE, is also executed, and then all the 
statements contained in REORDER-2 are executed, at which point control 
is returned to the first statement in WRITE -MASTER- ROUTINE — the next 
successive statement after the PERFORM statement. 

A PERFORM statement may specify that a single section or paragraph be 
processed, or, if the desired procedure consists of more than one 
section or paragraph, it can specify two names that identify the 
beginning and the end of the procedure. 

GO TO and PERFORM statements may seem to do much the same job. Yet 
there are specific reasons that will cause the programmer to choose one 
over the other. On the one hand, the programmer may wish to transfer 
control to the same procedure from two entirely different sections of 
the program. In this case, PERFORM offers the most convenient method of 
returning to the point from which the transfer was made. On the other 
hand, if the programmer wishes to proceed to a portion of the program 
without specifying a return to the current routine, a GO TO statement 
will provide the best method of making the transfer. 

In addition to the GO TO and PERFORM statements, there is another 
COBOL statement that affects procedure branching: the ALTER statement. 

In any given execution of our object program, we may or may not use 
our ACTION-FILE. Only if some item in STOCK-ON-HAND has fallen below 
REORDER-POINT will it be necessary to create an ACTION-RECORD. 
Therefore, depending upon the data that is being processed, we will open 
ACTION-FILE only if and when such an operation is necessary. 

Suppose that for the first time in a particular execution of our 
object program we have encountered a value for STOCK-ON-HAND that 
indicates it must be reordered. The statement: 

IF STOCK-ON-HAND IN MASTER-RECORD IS NOT GREATER THAN 
ORDER-POl.^T IN MASTER-RECORD 
PERFORM REORDER-1 THRU REORDER-2. 

instructs the compiler, when STOCK-ON-HAND is not greater than 
ORDER-POINT, to transfer control to the first sentence in REORDER-1. 
REORDER-1 consists of but one statement: 

GO TO SWITCH- ROUTINE. 

SWITCH- ROUTINE, as it happens, is the next paragraph, and it contains 
an ALTER statement: 

ALTER REORDER-1 TO REORDER-2 

END-ROUTINE-1 TO END-ROUTINE- 3 . 

This Statement instructs the compiler to substitute the words 
REORDER-2 for SWITCH-ROUTINE (within REORDER-1), and END-ROUTINE-3 for 
END-ROUTINE-2 (within END-ROUTINE-1). Since, at the time the ALTER 
statement is executed, we are already beyond the point at which the 
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substitution is to be made in REORDER-1, we continue processing each 
sequential statement until we reach the end of REORDER-2. We open 
ACTION-FILE, and so forth, until we return control to the next statement 
following the PERFORM statement. 

However, in this execution of our object program, the next time we 
must reorder an item, a different sequence of statements is performed. 
The program transfers control to REORDER-1, but now the GO TO statement 
within REORDER-1 has a different operand. Instead of SWITCH-ROUTINE, 
the program is now instructed to transfer control to the paragraph named 
REORDER-2. Through use of the ALTER statement, we have created a switch 
that bypasses the OPEN ACTION-FILE statement in subsequent processing of 
reordered items, since the OPEN statement need be executed but once in 
any execution of our object program. 

Similarly, if ACTION-FILE was never opened in this execution of our 
object program, it is not necessary to close it. Therefore, the second 
part of the ALTER statement: 

END-ROUTINE-1 TO END-ROUTINE- 3 

allows alternate paths of program flow, depending on whether or not this 
ALTER statement was ever executed. The precise rules for programming 
the ALTER statement are given later in this publication; note, however, 
the increased programming flexibility it offers. 



Ending the Program 

One last step in the logic of our inventory program must now be 
taken. We have obtained the update information from a record, performed 
the needed arithmetic calculations, moved the data from one area of 
storage to another, and written the decision-making and procedure- 
branching instructions necessary to take care of special cases and to 
process each succeeding record. Then we have written the updated 
information into the MASTER-FILE, and, when necessary, have written the 
ACTION-FILE. We must now terminate the program after all records have 
been acted upon. Remember that we wrote our first READ statement as 
follows : 

READ DETAIL-FILE AT END GO TO END-ROUTINE-1. 

END-ROUTINE-1 will consist of the few instructions necessary to 
terminate operations for this program. 

Just as the programmer made all the files available to the system 
with a set of OPEN instructions, he must now disconnect these same files 
with another series: 

END-ROUTINE-1. 

GO TO END-ROUTINE- 2. 
END-ROUTINE- 3. 

CLOSE ACTION-FILE. 
END-ROUTINE- 2. 

CLOSE DETAIL-FILE. 

CLOSE MASTER-FILE. 
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These instructions initiate necessary housekeeping routines. (Note here 
that, in our program, ACTION-FILE will be closed only if REORDER-1 THRU 
REORDER- 2 has been performed and the ALTER statement has been executed.) 
Once a file has been closed, it cannot be accessed by the program again. 
The programmer now writes one last COBOL instruction, and it must be at 
the logical end of his processing: 

STOP RUN. 



At this point, COBOL ending procedures are initiated, and the execution 
of the program is halted. 

This is only a general picture of the way in whicn a COBOL program 
works. The following chapters in this manual give detailed descriptions 
of all four divisions within a COBOL program, with explicit instructions 
for correct programming in IBM Full American National Standard COBOL. 
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IDENTIFICATION DIVISION. 
PROGRAM- ID. UPDATING. 

REMARKS. THIS IS A SIMPLIFIED UPDATE PROGRAM, USED AS AN 
EXAMPLE OF BASIC COBOL TECHNIQUES. THE PROGRAM IS 
EXPLAINED IN DETAIL IN THE INTRODUCTION TO THIS MANUAL. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-360-F50. 
OBJECT- COMPUTER. IBM-360-F50. 
INPUT-OUTPUT SECTION. 
FILE- CONTROL. 

SELECT MASTER-FILE ASSIGN TO SYS015-DA-2311-A-MASTER 
ACCESS MODE IS RANDOM 
ACTUAL KEY IS FILEKEY. 
SELECT DETAIL-FILE ASSIGN TO SYS007-UT-2400-S-INFILE 

ACCESS IS SEQUENTIAL. 
SELECT ACTION-FILE ASSIGN TO SYS008-UT-2400-S-OUTFILE. 
DATA DIVISION. 
FILE SECTION. 
FD MASTER- FILE LABEL RECORDS ARE STANDARD 

DATA RECORD IS MASTER- RECORD. 
01 MASTER-RECORD. 

PICTURE X(3) . 
PICTURE X(29) . 
PICTURE S9(6) 
PICTURE S999V99 
PICTURE S9(9)V99 
PICTURE S9(3) 



02 
02 
02 
02 
02 
02 



ITEM- CODE 
ITEM- NAME 
STOCK-ON- HAND 
UNIT-PRICE 
STOCK-VALUE 
ORDER-POINT 



USAGE COMP SYNC. 
USAGE COMP SYNC. 
USAGE COMP SYNC. 
USAGE COMP SYNC. 



FD DETAIL-FILE LABEL RECORDS ARE OMITTED 

DATA RECORD IS DETAIL- RECORD. 
01 DETAIL- RECORD. 

02 ITEM-CODE PICTURE X(3). 
02 ITEM-NAME PICTURE X(29). 
02 RECEIPTS PICTURE S9(3) 
02 SHIPMENTS PICTURE S9(3) 
FD ACTION-FILE LABEL RECORDS ARE OMITTED 

DATA RECORD IS ACTION- RECORD. 
01 ACTION- RECORD. 

PICTURE X(3) . 
PICTURE X(29) . 
PICTURE S9(6) 
PICTURE S999V99 
PICTURE S9(3) 

PICTURE 39(10) 
PICTURE S9999 



USAGE COMP SYNC. 
USAGE COMP SYNC. 



02 


ITEM-CODE 


02 


ITEM- NAME 


02 


STOCK -ON- HAND 


02 


UNIT-PRICE 


02 


ORDER- POINT 


WORKING 


-STORAGE SECTI 


77 SAVE 


77 QUOTIENT 


01 KEY- 


-ACTUAL. 


02 


M 


02 


BB 


02 


CC 


02 


HH 


02 


R 


02 


RECORD-ID 



USAGE COMP SYNC. 
USAGE COMP SYNC. 
USAGE COMP SYNC. 

USAGE COMP SYNC. 
USAGE COMP SYNC. 



PICTURE S999 COMP SYNC VALUE ZEROS. 



PICTURE 



S9 COMP SYNC VALUE ZEROS. 



PICTURE S999 COMP SYNC VALUE ZEROS. 
PICTURE S999 COMP SYNC. 
PICTURE X VALUE LOW- VALUE. 
PICTURE X(29) . 



01 



01 
01 



01 



THE-KEY REDEFINES KEY- ACTUAL. 

02 FILLER PICTURE X. 

02 FILEKEY PICTURE X(37) . 

TRACKl PICTURE 9(4). 

TRACK2 REDEFINES TRACKl COMP. 

02 CYL PICTURE S999. 

02 HEAD PICTURE S9. 

ERROR- MESSAGE. 

02 ERROR-MESSAGE- 1 PICTURE X(20). 

02 ERROR-MESSAGE- 2 PICTURE X(36) . 

02 ERROR-MESSAGE- 3 PICTURE X(46). 



Figure 4. Complete UPDATING Program (Part 1 of 2) 
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PROCEDURE DIVISION. 
1 OPEN-FILES-ROUTINE . 

OPEN INPUT DETAIL-FILE. 

OPEN I-O MASTER-FILE. 
NEXT-DETAIL- RECORD- ROUTINE . 

READ DETAIL-FILE AT END GO TO END-ROUTINE-1. 
NEXT-MASTER-RECORD-ROUTINE. 

MOVE ITEM-CODE IN DETAIL- RECORD TO SAVE. 

DIVIDE 19 INTO SAVE GIVING QUOTIENT 
REMAINDER TRACKl . 

ADD 1020 TO TRACKl. 

MOVE 'ITEM-NAME IN DETAIL- RECORD TO RECORD-ID. 

MOVE HEAD TO HH. MOVE CYL TO CC. 

READ MASTER-FILE INVALID KEY 

PERFORM INPUT- ERROR GO TO ERROR- WRITE. 
C OMPUTATI ON- ROUTI NE . 

COMPUTE STOCK-ON-HAND IN MASTER-RECORD = STOCK-ON-HAND 
IN MASTER- RECORD + RECEIPTS - SHIPMENTS. 

IF STOCK-ON-HAND IN MASTER-RECORD IS LESS THAN ZERO 
PERFORM DATA-ERROR qO TO ERROR-WRITE. 

MULTIPLY STOCK-ON-HAND IN MASTER-RECORD BY UNIT-PRICE 
IN MASTER-RECORD GIVING STOCK-VALUE 
IN MASTER-RECORD. 

IF STOCK-ON-HAND IN MASTER-RECORD IS NOT GREATER THAN 
ORDER- POINT IN I^iASTER- RECORD PERFORM REORDER- 1 
THRU REORDER- 2. 
WRITE-MASTER- ROUTINE. 

WRITE MASTER-RECORD INVALID KEY 

PERFORM OUTPUT-ERROR GO TO ERROR- WRITE. 

GO TO NEXT-DETAIL-RECORD-ROUTINE. 
REORDER-1. GO TO SWITCH-ROUTINE. 
SWITCH-ROUTINE. 

ALTER REORDER-1 TO REORDER-2 

END-ROUTINE-1 TO END-ROUTINE- 3 . 

DISPLAY "ACTION FILE UTILIZED". 

OPEN OUTPUT ACTION- FILE. 
REORDER-2. 

MOVE CORRESPONDING MASTER-RECORD TO ACTION-RECORD. 

WRITE ACTION- RECORD. 
ERROR- WRITE. 

MOVE DETAIL-RECORD TO ERROR-MESSAGE- 2. 

DISPLAY ERROR- MESS AGE. 

GO TO NEXT-DETAIL- RECORD-ROUTINE. 
INPUT- ERROR. 

MOVE " KEY ERROR ON INPUT " TO ERROR-MESSAGE- 1 . 

MOVE SPACES TO ERROR-MESSAGE- 3 . 
DATA- ERROR. 

MOVE "DATA ERROR ON INPUT " TO ERROR-MESSAGE- 1. 

MOVE MASTER-RECORD TO ERROR-MESSAGE- 3 . 
OUTPUT-ERROR. 

MOVE "KEY ERROR ON OUTPUT " TO ERROR-MESSAGE-1. 

MOVE SPACES TO ERROR-MESSAGE- 3 . 
END-ROUTINE-1. 

GO TO END-ROUTINE-2. 
END- ROUTINE- 3. 

CLOSE ACTION- FILE. 
END-ROUTINE-2. 

CLOSE DETAIL- FILE. 

CLOSE MASTER- FILE. 

STOP RUN. 
L J 

Figure U. Complete UPDATING Program (Part 2 of 2) 
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PART I — LANGUAGE CONSIDERATIONS 



• STRUCTURE OF THE LANGUAGE 



• ORGANIZATION OF THE COBOL PROGRAM 



• METHODS OF DATA REFERENCE 



• USE OF THE COBOL CODING FORM 



• FORMAT NOTATION 
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STRUCTURE OF THE LANGUAGE 



The COBOL language is so structured that the programmer can write his 
individual problem program within a framework of words that have 
particular meaning to the COBOL compiler. The result is the performance 
of a standard action on specific units of data. For example, in a COBOL 
statement such as MOVE NET- SALES TO CURRENT-MONTH, the words MOVE and TO 
indicate standard actions to the COBOL compiler. NET-SALES and 
CURRENT-MONTH are programmer- defined words which refer to particular 
units of data being processed by his problem program. 



COBOL CHARACTER SET 



The complete character set for COBOL consists of the following 51 
characters: 



Character 


Meaning 


0,1, ...,9 
A,B,...,Z 


digit 
letter 


+ 
* 


space 

plus sign 

minus sign (hyphen) 

asterisk 


/ 


stroke (virgule, slash) 


= 


equal sign 




currency sign 


f 


comma 


f 


semicolon 


( 
) 
> 

< 


period (decimal point) 
quotation mark 
left parenthesis 
right parenthesis 
"greater than" symbol 
"less than" symbol 



PQftes This <;orapil«r's default: option for Xhm ^ptiotatlon mark is th^ 
apostroplie < * > « Unless the d«f aalt o^t.l<m is overrrMclen, th.e quotation 
maitk C^J lasy not be use^» if conformance with the standard character 
set is desired, the programmer must specify the quotation mark (") 
through a CBL card at compile time. If the quotation mark is thus 
specified, the apostrophe (') may not be used. 

Note: In addition to these 51 characters, the COBOL compiler will 
process (e.g., in a VALUE IS clause or in an IF statement) those 
multiple characters which function as return codes for CICS. 



Characters Used in Words 



The characters used in words in a COBOL source program are the 
following: 

through 9 
A through Z 
- (hyphen) 

A word is composed of a combination of not more than 30 characters 
chosen from the character set for words. The word cannot ioegin or end 
with a hyphen. 
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Character Set 

Characters Used for Punctu ation 

The following characters are used for punctuation; 



Character 


Meaning 




space 


r 


comma 


• 


semicolon 


, 


period 


" iiii^iis 


Quotation mark 


( 


left parenthesis 


) 


right parenthesis 



The following general rules of punctuation apply in writing a COBOL 
source program: 



1. When any punctuation mark is indicated in a format in this 
publication, it is required in the program. 



2. A period, semicolon, or comma, when used, must not be preceded by a 
space, but must be followed by a space. 



3. A left parenthesis must not be followed immediately by a space; a 
right parenthesis must not be preceded immediately by a space. 



4, At least one space must appear between two successive words and/or 
parenthetical expressions and/or literals. Two or more successive 
spaces are treated as a single space, except within nonnumeric 
literals. 



5. An arithmetic operator or an equal sign must always be preceded by 
a space and followed by a space. A unary operator may be preceded 
by a left parenthesis. 



6. A comma may be used as a separator between successive operands of a 
statement. An operand of a statement is shown in a format as a 
lower-case word. 



7. A comma or a semicolon may be used to separate a series of clauses. 
For example, DATA RECORD IS TRANSACTION, RECORD CONTAINS 80 
CHARACTERS. 

8. A semicolon may be used to separate a series of statements. For 
example, ADD A TO B; SUBTRACT B FROM C. 

it0 ^ 



Character Set 
Characters Used for Editing 



Editing characters are single characters or specific two-character 
combinations belonging to the following set: 



Character 


Meaning 


B 


space 





zero 


+ 


plus 


- 


minus 


CR 


credit 


DB 


debit 


Z 


zero suppression 


* 


check protection 


$ 


currency sign 


t 


comma 


, 


period (decimal point) 



(For applications, see the discussion of alphanumeric edited and numeric 
edited data items in "Data Division.") 



Characters Used in Arithmetic Expressions 



The characters used in arithmetic expressions are as follows: 



Character 


Meaning 


+ 


addition 


- 


subtraction 


* 


multiplication 


/ 


division 


** 


exponentiation 



Arithmetic expressions are used in the COMPUTE statement and in 
relation conditions (see "Procedure Division" for more details). 



Characters Used for Relation-conditions 



A relation character is a character that belongs to the following 
set: 

Character Meaning 

> greater than 

< less than 

= equal to 

Relation characters are used in relation-conditions (discussed in 
"Procedure Division"). 



TYPES OF WORDS 

A word is composed of a combination of not more than 30 characters 
chosen from the character set for words. The word cannot begin or end 
with a hyphen. 
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Words 

The space (blank) is not an allowable character in a word; the space 
is a word separator. Wherever a space is used as a word separator, more 
than one may be used. 

A word is terminated by a space, or by a period, right parenthesis, 
comma, or semicolon. 



Reserved Words 

Reser v ed words exist for syntactical purposes and must not appear as 
user-defined words. However, reserved words may appear as nonnumeric 
literals, i.e., a reserved word may be enclosed in quotation marks. 
When used in this manner, they do not take on the meaning of reserved 
words and violate no syntactical rules. 

There are three types of reserved words: 

1. Key Words . h key word is a word whose presence is required in a 
COBOL entry. Such words are upper case and underlined in the 
formats given in this publication. 

Key words are of three types: 

a. Verbs such as ADD, READ, and ENTER. 

b. Required words, which appear in statement and entry formats, 
such as the word TO in the ADD statement. 

c. Words that have a specific functional meaning, such as ZERO, 
NEGATIVE, SECTION, TALLY, etc. 

2. Optional Words . Within each format, upper case words that are not 
underlined are called optional words because they may appear at the 
user's option. The presence or absence of each optional word in 
the source program does not alter the compiler's translation. 
Misspelling of an optional word, or its replacement by another word 
of any kind, is not allowed. 

3. Connectives . There are three types of connectives: 

a. Qualifier connectives , which are used to associate a data-name 
or paragraph- name with its qualifier. The qualifier 
connectives are OF and IN (see "Methods of Data Reference"). 

b. series connectives , which link two or more consecutive 
operands. The series connective is the comma (,). 

c. Logical connectives that are used in compound conditions. The 
logical connectives are AND, OR, AND NOT, and OR NOT (see 
"Conditions") . 

Note ; Abbreviations (such as PIC for PICTURE) are allowed for some 
reserved words; the abbreviation is the equivalent of the complete word. 
For the formats in which they are allowable, such abbreviations are 
shown in the format. The reserved words THRU and THROUGH are 
equivalent. In statement formats, wherever the reserved word THRU 
appears, the word THROUGH is also allowed. 
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Names 

There are three types of names used in a COBOL program: 

1. A data-name is a word that contains at least one alphabetic 
character and identifies a data item in the Data Division. The 
following are formed according to the rules for data-names: 

file-names 

index-names 

mnemonic-names 

record-names 

report— names 

sort- file-names 

sort-record-names 

2. A condition-name is a name given to a specific value, set of 
values, or range of values, within the complete set of values that 
a particular data item may assume. The data item itself is called 
a conditional variable. The condition-name must contain at least 
one alphabetic character (see "Data Division" and the discussion of 
"Special-Names" in "Environment Division"). 

3. A procedure-name is either a paragraph-name or a section-name. A 
procedure-name may be composed solely of numeric cnaracters. Two 
numeric procedure-names are equivalent if, and only if, they are 
composed of the same number of digits and have the same value (see 
"Procedure Division") . The following are formed according to the 
rules for procedure-names: 

library-names 
program-names 

I Note: The first 8 characters of a file-name must be unique to 
I avoid duplicate names. 



Specia l-Names 

Spec ial-names are used in the SPECIAL-NAMES paragraph of the 
Environment Division. The term special-name refers to a mnemonic-name. 
A mnemonic -name is a programmer-defined word that is associated in the 
Environment Division with a function-name: function- names are names 
with a fixed meaning, defined by IBM. 

In the Procedure Division, mnemonic-name can be written in place of 
its associated function-name in any format where such substitution is 
valid. The formation of a mnemonic-name follows the rules for formation 
of a data-name (see "Special-Names" in "Environment Division"). 



CONSTANTS 



A constant is a unit of data whose value is not subject to change. 
There are two types of constants: literals and figurative constants. 



Literals 

^ literal is a string of cnaracters whose value is determined by tne 
set of characters of which the literal is composed. Every literal 
belongs to one of two categories, numeric and nonnumeric. 
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Literals 

NUMERIC LITER ALS : There are two types of numeric literals: fixed-point 
and floating-point. 

A fixed-point numeric literal is defined as a string of characters 
chosen from the digits through 9, the plus sign, the minus sign, and 
the decimal point. The literal -0 is treated by the compiler as a +0. 
Every fixed-point numeric literal: 

1. must contain from 1 through 18 digits. 

2. must not contain more than one sign character. If a sign is used, 
it must appear as the leftmost character of the literal. If the 
literal is unsigned, the literal is positive. 

3. must not contain more than one decimal point. The decimal point is 
treated as an assumed decimal point, and may appear anywhere in the 
literal except as the rightmost character. If the literal contains 
no decimal point, the literal is an integer. 

(See discussion of fixed-point numeric items in "Data Division.") 

^ l^loa ti3 3 i <|-:|SHDint..--Bti^ iiteral i» a. jfet,a it«ia w^iose jiotentlatl raii9e 

of valt^ i:& too gr«a*: tor f jl3£#a~^lnt represefitai:i*:m* ,k fioatiiig-|)oi3at 



A f ioatittg~|)Oiat; literal lauat. 

pr^cading th^ «»ai^t;issa and €x.pon«nt^ 
wifeJiin the- foi^raat, 1?be m a |fc| ;igj 
wl*^ a reqpslred <leciiftai ioHS^T 



a]g^>ear a^ a cont;iut«oa» string of 
* Hie ^Iv^ 04C lainus signs 
ar« the ^nl^ o-ptionai cJiarai:tt«:rs 
consists of from 1 through 1$ digits 



^^ ^^q»^eiat -ia r^^reis^^-tM' i«tta«diately to th« right of the saantissa 
by the wst^Xfl 1# follo«*ed iy^ a pltte or jaimiis sign Uf a sign is giv«ji> 
a»d one or t«*o ^i^it©, 1*he fi^^nitxade: of the: number regijres^ited b^ a 

a^^ttja^ed that an vujisl^ned «K^on.e«t i$ 



literal most not 
^(aritt«n as ^ or 00+ It 



l^e V&1W& <3€ tl^ literal i«t the prodi^^t of tbe laaiiti^^a and tcaa 

td tM'|>®Hi«^i:r,^i,i^aa;l33f 'tt^^,ei«^«^^ j^r ^o^u^le, the liti^ai 









B ; - . ; > , f 



'At 



,*l 



If the literal conforms to the rules for the formation of numeric 
literals, but is enclosed in quotation marks, it is a nonnumeric 
literal. 



NONNUMERIC LITERALS : A nonnumeric literal is defined as a string of any 
allowable characters in the Extended Binary Coded Decimal Interchange 
Code (EBCDIC) set, excluding the quotation mark character. A nonnumeric 
literal may be composed of from 1 through 120 characters enclosed in 
quotation marks. Any spaces within the quotation marks are part of the 
nonnumeric literal and, therefore, are part of the value. All non- 
numeric literals are in the alphanumeric category. 
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Figurative Constants 



Fi gurative Constants 



^ figurative constant is a constant to which a specific data-name has 
been assigned. These data-names are reserved words. Such a data-name 
must not be enclosed in quotation marks when used as a figurative 
constant. The singular and plural forms of a figurative constant are 
equivalent and may be used interchangeably. 

h figurative constant may be used in place of a literal wherever a 
literal appears in a format. There is one exception to this rule: if 
the literal is restricted to num.eric characters- only the figurative 
constant ZERO (ZEROES, ZEROS) is allowed. 



The fixed data-names and their meanings are as follows; 



ZERO 

ZEROES 

ZEROS 



Represents the value 0, or one or more 
occurrences of the character 0, depending on 
context. 



SPACE 
SPACES 



Represents one or more blanks or spaces. 



HIGH-VALUE Represents one or more occurrences of the 

HIGH-VALUES character that has the highest value in the computer's 

collating sequence. The character for HIGH- VALUE is 

the hexadecimal 'FF'. 



LOW- VALUE Represents one or more occurrences of the 

LOW- VALUES character that has the lowest value in the computer's 

collating sequence. The character for LOW-VALUE is 

the hexadecimal '00'. 



QUOTE 
QUOTES 



Represents one or more occurrences of the 
quotation mark character. The word QUOTE (QUOTES) 
cannot be used in place of a quotation mark to enclose 
a nonnumeric literal . 



ALL literal Represents one or more occurrences of the string of 

characters composing the literal. The literal must be 
either a nonnumeric literal or a figurative constant 
other than the ALL literal. When a figurative 
constant is used, the word ALL is redundant and is 
used for readability only. 
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Special Registers 
SPECIAL REGISTERS 



The compiler generates storage areas that are primarily used to store 
information produced with the use of special COBOL features; these 
storage areas are called specia l registers . 

TA.LLY 

The word TALLY is the name of a special register whose implicit 
description is that of an integer of five digits without an 
operational sign, and whose implicit USAGE is COMPUTATIONAL. The 
primary use of the TALLY register is to hold information produced by 
the EXAMINE statement. References to TALLY may appear wherever an 
elementary data item of integral value may appear (see the "EXAMINE 
Statement" in "Procedure Division") . 



LINE-COUNTER 

LI j-'ffi- COUNTER is a numeric counter that is generated by the Report 
Writer. (For a complete discussion, see "Report Writer.") 



PAGE-COUNTER 

PAGE-COUNTER is a numeric counter that is generated by the Report 
Writer. (For a complete discussion, see "Report Writer.") 



CURRENT-DATE 

CURRENT-DATE is an 8-byte alphanumeric field, valid only as the 
sending field in a MOVE statement. The format of these eight bytes 
is MM/DD/YY (month/day/year) or DD/MM/YY (day/month/year) . 



TIME-OF-DAY 

TIME-OF-DAY is a 6-byte external-decimal field, valid only as the 
sending field in a MOVE statement . The format is HHMMSS (hour, 
minute, second) . 



COM- REG 



COM-REG is an 11-byte alphanumeric field- This field corresponds 
to bytes 12 through 22 of the DOS Communication Region, COM-REG is 
valid only as the sending or receiving field in a MOVE statemienti 
When COM-REG is used as the receiving field in a MOVE statement, the 
sending field must be il bytes in length. 

(The use of CURRENT-PATE, TIME-OF-DAY, and COM-REG xs explained in 
the Programmer's Guides (ag cited in "Preface").) 



aa 
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Special Registers 



SORT-RETORN 
SORT-FILE-SIZE 
SORT-CORE-SIZE 
SORT-MODE- SIZE' 



■''I 



The foregoing four registers are used by the Sort feat tire land; are 
described under "Sort." 



NSTD-REELS ; 

NSTD-REELS is a binary field whose PICTURE is S999 and whose 
maximum value is 255. It is used to indicate tt^ number of r>eels in 
an input file with nonstandard labels. This field is initially set 
to zero. i^lSTD- REELS is tested each titre an OPEN statement is 
executed for a file with nonstandard labels. If it is nonzero, its 
contents are used to determine the number of reels to be processed. 
If it is zero, the number of reels in the file is determined from the 
ASSIGN clause. 
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COBOL Program Structure 
ORGANIZATION OF THE COBOL PROGRAM 



Every COBOL source program is divided into four divisions. Each 
division must be placed in its proper sequence, and each must begin with 
a division header . 

The four divisions, listed in sequence, and their functions are: 

• IDENTIFICATION DIVISION, which names the program. 

• ENVIRONMENT DIVISION, which indicates the machine equipment and 
equipment features to be used in the program. 

• DATA DIVISION, which defines the nature and characteristics of data 
to be processed. 

• PROCEDURE DIVISION, which consists of statements directing the 
processing of data in a specified manner at execution time. 

Note : In all formats within this publication, the required clauses and 
optional clauses (when written) must appear in the sequence given in the 
format, unless the associated rules explicitly state otherwise. 



Structu re of the COBOL Program 



IDENTIFICATION DIVISION .) 

< •fciflllliriMMIlllliilillilillTIITiri -'*'*""'""*™^ /' 



PROGRAM- ID . program-name. 
[ AUTHOR . [comment- entry] ... 3 

[ INSTALLATION . [comment-entry] ] 

[ DATE-WRITTEN . [comment-entry] . . . ] 
[ DATE-COMPILED . [comment-entry] . . . ] 
[ SECURITY . [comment-entry] . . . ] 
[ REMARKS . [comment- entry] . . . ] 
ENVIRONMENT DIVISION , 
i CONFIGURATION SECTIO N. 
SOURCE-COMPUTER . entry 
OBJECT-COMPUTER . entry 
[ SPECIAL- NAMES . entry]| 
[ INPUT- OUTPUT SECTION . 
FILE -CONTROL . {entry}... 
[ I-O-CONTRQL . entry] ] 
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COBOL Proqram Structure 



DATA DIVISION . 

[FILE SECTION . 

{file description entry 

{record description entry}...}...] 

[ WORKI NG- STORAGE SECTION. 

[data item description entry] . . . 

[record description entry] . . . ] 




[ REPORT SECTION. 

{report description entry 

{report group description entry}...}...] 

PROCEDURE DIVISION 

[[ DECLARATIVES . 

{section-name SECTION . USE Sentence. 

{paragraph-name. {sentence} ...}...}. 

END DECLARATIVES.] 

{section-name SECTION [priority].] 

{paragraph-name. {sentence} ...}...}. 






tfX^. 
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Qualification 



METHODS OF DATA REFERENCE 



Every name used in a COBOL source program must be unique, either 
because no other name has the identical spelling ^ or because it is made 
unique through qualification, subscripting, or indexing. 

An identifier is a data-name, unique in itself, or made unique by the 
syntactically correct combination of qualifiers, subscripts, and/or 
indexes. 



QUALIFICATION 



A name may be made unique if the name exists within a hierarchy of 
names and the name can be singled oyit by mentioning one or more of the 
higher levels of the hierarchy. The higher levels are called 
qualifiers. Qualification is the process by which such a name is made 
unique. 

Qualification is applied by placing after a data-name or a 
paragraph-name one or more phrases, each composed of a qualifier 
preceded by IN or OF. IN and OF are logically equivalent. Only one 
qualifier is allowed for a paragraph- name. 

Enough qualification must be mentioned to make the name unique; 
however, it may not be necessary to mention all levels of the hierarchy. 
For example, if there is more than one file whose records contain the 
field EMPLOYEE-NO, yet there is but one file whose records are named 
MASTER- RECORD, EMPLOYEE-NO OF MASTER-RECORD would sufficiently qualify 
EMPLOYEE-NO. EMPLOYEE-NO OF MASTER-RECORD OF MASTER-FILE is valid but 
unnecessary (see discussion of level indicators and level numbers in 
"Data Division"). 

The name associated with a level indicator is the highest level 
qualifier available for a data-name. (A level indicator (FD, SD, RD) 
specifies the beginning of a file description, sort file description, or 
report description.) A section-name is the highest (and the only) 
qualifier available for a procedure-name (see discussion of procedure- 
names in "Procedure Division"). Thus, level indicator names and 
section-names must be unique in themselves since they cannot be 
qualified. 

The name of a conditional variable can be used as a qualifier for any 
of its condit ion- names. In addition, a conditional variable may be 
qualified to make it unique. 

The rules for qualification follow: 

1. Each qualifier must be of a successively higher level, and must be 
within the same hierarchy as the name it qualifies. 

2. The same name must not appear at two levels in a hierarchy. 

3. If a data-name or a condition-name is assigned to more than one 
data item in a source program, the data-name or condition-name must 
be qualified each time reference is made to it in the Procedure, 
Environment, or Data Division (except in the REDEFINES clause 
where, by definition, qualification is unnecessary). (See the 
REDEFINES clause in "Data Division.") 
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Subscripting/Indexing 

4. A paragraph-name must not be duplicated within a section. When a 
paragraph-name is qualified by a section-name, the word SECTION 
must not appear. A paragraph- name need not be qualified when 
referred to within the section in which it appears. 

5. A data-name cannot be subscripted when it is being used as a 
qualifier. 

6. A name can be qualified even though it does not need qualification; 
if there is more than one combination of qualifiers that ensures 
uniqueness, then any of these combinations can oe used. 

Although user-defined data-names can be duplicated within the Data 
Division and Procedure Division, the following rules should be noted: 

1. No duplicate section-names are allowed. 

2. No data-name can be the same as a section-name or a paragraph- name. 

3. Duplication of data-names must not occur in those places where the 
data-names cannot be made unique by qualification. 



SUBSCRIPTING 

Subscripts can be used only when reference is made to an individual 
element within a list or table of elements that nave not been assigned 
individual data-nam.es (see "Table Handling"). 



INDEXING 



References can be made to individual elements witnin a table of 
elements by specifying indexing for that reference. An index is 
assigned to a given level of a table by using an INDEXED 3Y clause in 
the definition of the table. A name given in the INDEXED BY clause is 
known as an index-name and is used to refer to the assigned index (see 
"Table Handling") . 
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Reference Format 

USE OF THE COBOL CODING FORM 



The reference format provides a standard method for writing COBOL 
source programs. The form.at is described in terms of character 
positions in a line on an input/output medium. Punched cards are the 
initial input medium to the COBOL compiler. The compiler only accepts 
source programs written in 80-column reference format (see Figure 5) 
and produces an output listing of the source program in the same 
reference format. 81 -column input is not accepted. 
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Columns 1-6 represent the sequence number area. 

Column 7 is the continuation area. 

Columns 8-11 represent Area A\ Used for writing COBOL source statements. 

Columns 12-72 represent Area B) 

Columns 73-8 are used to identify the program. 

L 

Figure 5. Reference Format 

The rules for spacing given in the following discussion of the 
reference format take precedence over any other specifications for 
spacing given in this publication. 



SEQUENCE NUMBERS 



A sequence number, consisting of six digits in the sequence number 
area, is used to identify numerically each card image to be compiled by 
the COBOL compiler. The use of sequence numbers is optional. 

If sequence numbers are present, they must be in ascending order. An 
error message is issued when source language input is out of sequence. 



AREA A -AND AREA B 



Area A , columns 8 through 11, is reserved for the beginning of 
division headers, section-names, paragraph-names, level indicators, and 
certain level numbers. Area B occupies columns 12 through 72. 
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Subscripting/Indexing 

U. A paragraph-name must not be duplicated within a section. When a 
paragraph-name is qualified by a section-name, the word SECTION 
must not appear. A paragraph- name need not be qualified when 
referred to within the section in which it appears. 

5. A data-name cannot be subscripted when it is being used as a 
qualifier. 

6. A name can be qualified even though it does not need qualification; 
if there is more than one combination of qualifiers that ensures 
uniqueness, then any of these combinations can oe used. 

Although user-defined data-names can be duplicated within the Data 
Division and Procedure Division, the following rules should be noted: 

1. No duplicate section-names are allowed. 

2. No data-name can be the same as a section-name or a paragraph- name. 

3. Duplication of data-names must not occur in those places where the 
data-names cannot be made unique by qualification. 



SUBSCRIPTING 



Subscripts can be used only when reference is made to an individual 
element within a list or table of elements that nave not been assigned 
individual data-names (see "Table Handling"). 



INDEXING 



References can be made to individual elements witnin a table of 
elements by specifying indexing for that reference. An index is 
assigned to a given level of a table by using an INDEXED BY clause in 
the definition of the table. A name given in the INDEXED BY clause is 
known as an index- name and is used to refer to the assigned index (see 
"Table Handling"). 
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Reference Format 



USE OF THE COBOL CODING FORM 



The reference format provides a standard method for writing COBOL 
source programs. The format is described in terms of character 
positions in a line on an input/output medium. Punched cards are the 
initial input medium to the COBOL compiler. The compiler accepts source 
programs written in reference format (see Figure 5) and produces an 
output listing of the source program in the same reference format. 
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Columns 1-6 represent the sequence number area. 

Column 7 is the continuation area. 

Columns 8-11 represent Area A. "I Used for writing COBOL source statements. 

Columns 12-72 represent Area Bj 

Columns 73-8 are used to identify the program. 

L 

Figure 5 . Reference Format 

The rules for spacing given in the following discussion of the 
reference format take precedence over any other specifications for 
spacing given in this publication. 



SEQUENCE NUMBERS 



A sequence number, consisting of six digits in the sequence number 
area, is used to identify numerically each card image to be compiled by 
the COBOL compiler. The use of sequence numbers is optional. 

If sequence numbers are present, they must be in ascending order. An 
error message is issued when source language input is out of sequence. 
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AREA A AND AREA B 



Area A , colvmins 8 through 11, is reserved for the beginning of 
division headers, section-names, paragraph-names, level indicators, and 
certain level numbers. Area B occupies columns 12 through 72. 
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Reference Format 
Division Header 

The division header must be the first line in a division. The 
division header starts in Area A with the d ivisi on-name, followed by a 
space and the word DIVISION, and a period. ' ^ 

JbrSi^SK^*: No other text may appear on the same line as the division 
header . 

Section Header 

The name of a section starts in Area A of any line following the 
division header. The section-name is followed by a space, the word 
SECTION, and a period. If program segmentation is desired, a space and 
a priority number may follow the word SECTION. No other text may appear 
on the same line as the section- header , except USE and COPY sentences. 

Note: Although USE and COPY may appear in the Declaratives portion of 
the Procedure Division, only USE is restricted to the Declaratives 
portion. COPY may be used elsewhere in the COBOL program. 



Paragraph-names and Paragraphs 

The name of a paragraph starts in Area A of any line following the 
division header. It is followed by a period followed by a space. 

A paragraph consists of one or more successive sentences. The first 
sentence in a paragraph begins anywhere in Area B of either the same 
line as paragraph- name or the immediately following line. Each 
successive line in the paragraph starts anywhere in Area B. 



Level I ndicators and Level Numbers 

In those Data Division entries that begin with a level indicator, the 
level indicator begins in Area A followed in Area B by its associated 
file-name and appropriate descriptive information. 

In those data description entries that begin with a level number 01 
or 77, the level number begins in Area A followed in Area B by its 
associated data-name and appropriate descriptive information. 

In those data description entries that begin with level numbers 02 
through 49, 66, or 88, the level number may begin anywhere in Area A or 
Area B, followed in Area B by its associated data-name and descriptive 
information. 



CONTINUATION OF LINES 

Any sentence or entry that requires more than one line is continued 
by starting subsequent line(s) in Area B. These subsequent lines are 
called continuation lines . The line being continued is called the 
continued line . If a sentence or entry occupies more than two lines, 
all lines other than the first and last are both continuation and 
continued lines. 
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Reference Format 

CONTINUATION OF NONNUMERIC LITERALS 

When a nonnumeric literal is continued from one line to another, a 
hyphen is placed in column 7 of the continuation line, and a quotation 
mark preceding the continuation of the literal may be placed anywhere in 
Area B. All spaces at the end of the continued line and any spaces 
following the quotation mark of the continuation line and preceding the 
final quotation mark are considered part of the literal. 



CONTINU AT ION OF WORDS AND NUME RIC LITERALS 

When a word or numeric literal is continued from one line to another, 
a hyphen must be placed in column 7 of the continuation line to indicate 
that the first nonblank character in Area B of the continuation line is 
to follow the last nonblank character on the continued line, without an 
intervening space. In the case of numeric literals the last nonblank 
character of the continued line must not be a period or comma. 

BLANK LINES 

A blank line is one that contains nothing but spaces from column 7 
through column 72, inclusive. A blank line may appear anywhere in the 
source program, except immediately preceding a continuation line. 



Explanatory ccMueents w&f |>« in«i«rted oa any Xi^ vitlkia a «oiutc« 
program by placing an ast^erlsk lit the Costiimation Area of t|ie liae« 
Any comiblnatlon of the characters txom the SBCOXC set stay km includeiS in 
Areas A and B of that liiie. She asterlftl: a»d the characters will be 
produced on the source lististg t^tt serve no other purpose. (Also, see 
tne NOTE Statement in "Compiler Directing Statements" in "Procedure 
Division") . 
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FORMAT NOTATION 



Throughout this publication, basic formats are prescribed for various 
elements of COBOL. These generalized descriptions are intended to guide 
the programmer in writing his own statements. They are presented in a 
uniform system of notation, explained in the following paragraphs. 
Although it is not part of COBOL, this notation is useful in describing 
COBOL . 

1. All words printed entirely in capital letters are reserved words . 
These are words that have preassigned meanings in COBOL. In all 
formats, words in capital letters represent an actual occurrence of 
those words. If any such word is incorrectly spelled, it will not 
be recognized as a reserved word and may cause an error in the 
program. 

2. All underlined reserved words are required unless the portion of 
the format containing them is itself optional. These are key 
words. If any such word is missing or is incorrectly spelled, it 
is considered an error in the program. Reserved words not 
underlined may be included or omitted at the option of the 
programmer. These words are used only for the sake of readability; 
they are called option a l words and, when used, must be correctly 
spelled. 

3. The characters +, -, <, >, =, when appearing in formats, although 
not underlined, are required when such formats are used. 

4. All punctuation and other special characters (except those symbols 
cited in the following paragraphs) represent the actual occurrence 
of those characters. Punctuation is essential where it is shown. 
Additional punctuation can be inserted, according to the rules for 
punctuation specified in this publication. 

5. Words that are printed in lower-case letters represent information 
to be supplied by the programmer. All such words are defined in 
the accompanying text. 

6. In order to facilitate references to them in text, some lower-case 
words are followed by a hyphen and a digit or letter. This 
modification does not change the syntactical definition of the 
word. 

7. Certain entries in the formats consist of a capitalized word(s) 
followed by the word "Clause" or "Statement." These designate 
clauses or statements that are described in other formats, in 
appropriate sections of the text. 

8. Square brackets ([ ]) are used to indicate that the enclosed item 
may be used or omitte.d, depending on the requirements of the 
particular program. When two or more items are stacked within 
brackets, one or none of them may occur. 

9. Braces ({ }) enclosing vertically stacked items indicate that one 
of the enclosed items is obligatory. 
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Format Notation 

10. The ellipsis (...) indicates that the immediately preceding unit 
may occur once, or any number of times in succession. A unit means 
either a single lower-case word, or a group of lower-case words ana 
one or more reserved words enclosed in brackets or braces. If a 
term is enclosed in brackets or braces, the entire unit of which it 
is a part must be repeated when repetition is specified. 

11. Comments, restrictions, and clarifications on the use and meaning 
of every format are contained in the appropriate portions of the 
text. 
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PART II — IDENTIFICATION AND ENVIRONMENT DIVISIONS 



• IDENTIFICATION DIVISION 



• ENVIRONMENT DIVISION — FILE PROCESSING SUMMARY 



• ORGANIZATION OF THE ENVIRONMENT DIVISION 



• ENVIRONMENT DIVISION — CONFIGURATION SECTION 



• ENVIRONMENT DIVISION — INPUT-OUTPUT SECTION 
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IDENTIFICATION DIVISION 



The Identification Division is the first division of a COBOL program. 
It identifies the source program and the object program. A sourc e 
program is the initial problem program; an object program is the output 
from a compilation. 

In addition, the user may include the date the program is written, 
the date the compilation of the source program is accomplished, etc., in 
the paragraphs shown. 



Structure of the Identification Division 



^IDENTIFICATION DIVISION.] 



PROGRAM- ID . program- name. 

[ AUTHOR . [comment- entry] ] 

[ INSTALLATION . [comment- entry] ] 

[ DATE- WRITTEN . [comment-entry] . . . ] 

[ DATE-COMPILED . [comment-entry] ] 

[ SECURITY . [comment-entry] . . . ] 
[ REMARKS . [comment-entry] — ] 



Specific paragraph-names identify the type of information contained 
in the paragraph. The name of the program must be given in the first 
paragraph, which is the PROGRAM-ID paragraph. The other paragraphs are 
optional. If included, they must be presented in the order shown. 



The Identification Division must begin with the reserved words 
IDENTIFICATION DIVISION followed by a period. Each comment- entry may be 
any combination of characters from the EBCDIC set, organized to conform 
to sentence and paragraph structure. lMMpMMwMiPltsMa6il^^i@@MI^ 
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PROGRAM- ID Paragraph 



The PROGRAM-ID paragraph gives the name by which a program is 
identified. 



r 1 

j Format | 

|. ^ 

I I 

I PROGRAM-ID . program- name. | 

I I 
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DATE -COMPILED Paragraph 

The PROGRAM-ID paragraph contains the name of the program and must be 
present in every program. 

Program-name identifies the object program to the control program. 
Program-name must conform to the rules for formation of a 

used as the identifying name of the program and should therefore be 
unique as a program-name. 

Since the system expects the first character of program-name to be 
alphabetic, the first character, if it is numeric, will be converted as 
follows : 

to J 

1-9 to A-I 

Since the system does not include the hyphen as an allowable 
character, the hyphen is converted to zero if it appears as the second 
through eighth character of the name. 

Note: For additional information concerning program-name when using the 
Sort feature, the Segmentation feature, or the CATALR option, see the 
Programmer ' s Guide . 



DATE-COMPILED Paragraph 



The DATE-COMPILED paragraph provides the compilation date on the 
source program listing. 



Format 



DATE-COMPILED . [comment-entry] 



The paragraph-name DATE-COMPILED causes the current date to be 
inserted during program compilation. If a comment- entry is present, 
even though it spans lines, it is replaced in its entirety with the 
current date. 
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Data Organization 
ENVIRONMENT DIVISION — FILE PROCESSING SUMMARY 



In COBOL, all aspects of the total data processing problem that 
depend on the physical characteristics of a specific computer are given 
in one portion of the source program known as the Environment Division. 
Thus, a change in computers entails major changes in this division only. 
The primary functions of the Environment Division are to describe the 
computer system on wnich the object program is run and to establish the 
necessary links between the other divisions of the source program and 
the characteristics of the computer. 

The exact contents of the Environment Division depend on the method 
used to process files in the COBOL program. Before the language 
elements used in the Environment Division can be discussed meaningfully, 
some background in the file processing techniques available to the COBOL 
user must be given. 

Each combination of data organization and access method specified in 
the COBOL language is defined as a file-processing technique. The 
file-processing technique to be used for a particular file is determined 
by the data organization of that file and whether the access method is 
sequential or random. Figure 6 summarizes the file-processing 
techniques. 



DATA. ORGANI Z ATI ON 

Three types of data organization are made available to Disk Operating 
System COBOL users: sequential, direct |pppW^M^i§'. The means of 
creating or retrieving logical records in a file differ, depending on 
which type of data organization exists (organization being the structure 
of data on a physical file) . Each type of data organization is 
incompatible with the others. Organization of an input file must be the 
same as the organization of the file when it was created. 



Sequential Data Organization 

When sequential data organization is used, the logical records in a 
file are positioned sequentially in the order in which they are created 
and are read sequentially in the order in which they were created (or in 
sequentially reversed order if the REVERSED option of the OPEN statement 
is written for tape files) . Such a file organization is referred to in 
this publication as standard sequential organization. 

This type of data organization must be used for tape or unit-record 
files and may be used for files assigned to mass storage devices. No 
key is associated with records on a sequentially organized file. 



Direct Data Organization 

When direct data organization is used, the positioning of the logical 
records in a file is controlled by the user through the specification of 
an ACTUAL KEY defined in the Environment Division. The ACTUAL KEY has 
two components. The first is a track identifier which identifies the 
relative or actual track at which a record is to be placed or at which 
the search for a record is to begin. The second component is a record 
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Access Methods 



identifier , \n?hich serves as a unique logical identifier for a specific 
record on the track. Files with direct data organization must be 
assigned to mass storage devices. 
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ACCESS METHODS 



Two access methods are available to users of DOS COBOL: 
access and random access. 



sequential 



Sequential access is the method of reading and writing records of a 
file in a serial manner; the order of reference is implicitly determined 
by the position of a record in the file. 

Random access is the method of reading a,nd writing records in a 
programmer-specified manner; the control of successive references to the 
file is expressed by specifically defined keys supplied by the user. 



ACCESSING A SEQUENTIAL FILE 



A standard sequential file may be accessed only sequentially, i.e. 
records are read or written in order- Records can be created and 
retrieved; for standard sequential files on mass storage devices, 
records can also be updated. 



ACCESSING A DIRECT FILE 



Direct files may be accessed both sequentially and randomly. Records 
can be retrieved sequentially; they can be created, retrieved, updated, 
or added randomly. 



Sequential Access 



When reading a direct file sequentially, records are retrieved in 
logical sequence; this logical sequence corresponds exactly to the 
physical sequence of the records. 

■■''' .If|/t::toe;.:lkCTOAL,;'KEy^ flata^ the Jcpy a©so(q:iated 'with .the " 

rfca30i^x^%i^ ^|^^p||||i^^f|||d|;^B^cS|f4ga^bt''$i|i^J^iUAL KEY^ clause, 
fdr ^^eii ftisAD .stSteiieiit *! executed I.' ;'!] ' -' . ■ 
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Access Methods 



Randorri Access 



When accessing a direct file randomly, the ACTUAL KEY clause is 
required. 

The system uses the ACTUAL KEY to determine which track a particular 
record is on and to locate the record on that track. If the record is 
found, the data portion of the record is read, or, for a rewrite 
operation, replaced by a new record. If during a READ operation, the 
desired record cannot be found on the specified track, an invalid key 
condition is said to exist. 



Unless APPLY EXTENDED- SEARCH is used;, only the sp^ecifiijdd tirr^kulLs ' 
sjearched for ,the desired recor^a,. ' When IfiPPLY EXTSijiDBD-SEJa^cS {i^ "1^1^^'; 
thG system searches the entire cylinder for the recorid if the^ (Jesired, 
record cannot be found. , , - 



For a sprite operation, the system, after locating the track, searches 
for the last record on the track, and writes the new record (with 
control fields, including a key field equal to the identifier found 
within the ACTUAL KEY field) after tne last record. 

When a direct file is being created, OPEN initializes the capacity 
records (RO) onfall the tracks of the file. Therefore, a WRITE 
statement issued for an output file is processed in the same manner as a 
WRITE statement that adds a record to an input-output file. 



^CESSING AN INDEXED FILE , • ■ 

' '' ' '. ■' ' ' 

An indebced 'file mky be accfe^se^^ jbdfh' s'e^fe^'tSSfttJ-'-'*^!! 
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j • Th'e saifie iridexed file may dot -be •qrfeartsedi &tk3| »C|ea|<^;f:4:| '" 
t!te same program. ' ' 



Sequential AcJoess 



An indexed !f ile may, only be p,reated, seqiiii^tiiaLL^.y pip; 
indexed f'ile, 'the RECORD Elit 'ctLaus'e mi:^*s|t, te' ^pj^c:;i|fi4^q.| J ^j^i 
indicate the location of the key witr^in th^ xiecpeod ;i|t|^l|f .' 
KEY 'dlause may" oe specified. Rleddrds' 'are atr^aWgya 'iW kih^ ^i}).k 
order in Which' tney are Written'.* ' ' ' ' ' ' * ' '!!',*'' * m ! i * ' " * 

. , . I I ■ • 

To retrieve or update an indexed file sequentially',; the! ^RlElCXJHD 'KEY 
clause must h4 specified. Record!s a'r^ yead %n itlle Jdr|d^r ,iki WxijcK |t|N%, n^ 
ar,^ ,arran,g,ed ip^ the ,fil.e. Lo,gic,a,lily/ ^i\i-,s, !cqrr;e,3Jp^dj^ |tp| [t^^ [s^^^e ^^ 
of keys, which m\ist be in collating sequenca .at bh^ itime tjhiei ifiij^ ,iSj |^ 
created. If r'ecord retrieval is to d^in' a;t othet itHiaJni 'tiik fiitis't! I 




record, the NOMINAL KEY clause miust od sipecified? lar](d |aj SIAliE^ 
mixst be, executed before the first READJ bpeirat'iop.; [for Itlhalt 'f-ii 



^tjatensdrit p 



Random Access 



To retrieve or upidate an inidexed f il^ ranjdidniflN^, iWo|t|h; jthej li 



U^u i i 



It^AjlJ 
ildieri€i<^ |":fioyn!d[' 



and RECORD KEY clauses are required. A redarid is; csoir^s 

when the value associated with the datia-iriame sp^dif ied! ^in thej iNlOt!yirN|AjL rt 

KEY clause is equal to the value of the RECORD KEY for the record. ' iwheari 
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Access Methods 



aoniaig a rieco-rd to or-i lapdaating- ^^-iiSairfql 










<Kia.':i'.e;,WMv^i|V>.>m ■ir»liM\'U|w 



■r&&lii\4 



Appendix B contains three sample COBOL programs that illustrate: 

1. Creation of a direct file 

(Figure 4 contains a sample COBOL program illustrating random 
retrieval and updating of a direct file.) 
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[SEQUENTIAL] 

[SEQUENTIAL] 

[SEQUENTIAL] 

[SEQUENTIAL] 
RANDOM 



Figure 6. Summary of File-Processing Techniques 
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Environment Division — Structure 
ORGANIZATION OF THE ENVIRONMENT DIVISION 



The Environment Division must begin in Area A with the heading 
ENVIRONMENT DIVISION followed by a period. 

The Environment Division is divided into two sections: the 
Configuration Section and the Input-Output Section. When written, the 
sections and paragraphs must be in the sequence shown. 

Structure of the Environment Division 

ENVIRONMENT DIVISION . 
CONFIGURATION SECTION. 
SOURCE-COMPUTER paragraph 
OBJECT-COMPUTER paragraph 
[ SPECIAL- NAMES paragraph] 
[ INPUT- OUTPUT SECTION . 
FILE-CONTROL paragraph 
[ I- O- CONTROL paragraph]] 
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SOURCE -COMPUTER Paragraph 

ENVIRONMENT DIVISION — CONFIGURATION SECTION 



The Configuration Section deals with the overall specifications of 
computers. It is divided into three paragraphs: the SOURCE-COMPUTER 
paragraph, which describes the computer on which the source program is 
compiled; the OBJECT-COMPUTER paragraph, which describes the computer on 
which the object program (the program produced by the COBOL compiler) is 
executed; and, optionally, the SPECIAL- NAMES paragraph which relates the 
function-names used by the compiler to user-specified mnemonic-names - 



General Format | 
^ 

CONFIGURATION SECTION. 

SOURCE-COMPUTER . source-computer-entry 
OBJECT- COMPUTER . object-computer-entry 
[ SPECIAL-NAMES , special-names-entry] 

L J 

Section-names and paragraph-names must begin in Area A. 




SOURC E- COMPU TE R Paragraph 



The SOURCE-COMPUTER paragraph serves only as documentation, and 
describes the computer upon which the program is to be compiled. 



r 1 

I Format | 

j. ^ 

I I 

I SOURCE-COMPUTER . computer-name. | 

I I 

L . J 



Computer-name may be specified as IBM-36 [-model-number] or as 
IBM- 370 [-model-number] . 



The SOURCE-COMPUTER paragraph is treated as comments by the COBOL 
compiler. 
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OBJECT -COMPUTER Paragraph 
OBJECT- COMPUTER Paragraph 

The OBJECT-COMPUTER paragraph describes the computer on which the 
program is to be executed- 



r 1 

I Format | 

^ ^ 

OBJ ECT- COMPUTER . computer- name 

r WORDS 
[MEMORY SIZE integer ) CHARACTERS ), ] 

(MODULES 

[SEGMENT-LIMIT IS priority-number] . 

L . J 



Computer- name is a word of the form IBM-36 [-model- number ] . 
Computer-name must be the first entry in the OBJECT- COMPUTER paragraph. 



If the configuration implied oy computer-name comprises more or less 
equipment than is actually needed by the object program, the MEMORY SIZE 
clause permits the specification of the actual subset (or superset) of 
the configuration. 



The MEMORY SIZE clause is treated as comments by the COBOL compiler, 



The SEGMENT-LIMIT clause is discussed in "Segmentation." 



Program Product Information — Version 3 

Computer-name may also be specified as IBM-370 [-model-number] . If 
IBM-370 is specified, System/37 instructions are generated by the 
compiler. When IBM-370 is specified, the object program must be 
executed on a System/370 machine. 



SPECIAL-NAMES Paragraph 

The SPECIAL-NAMES paragraph provides a means of relating 
function-names to user-specified mnemonic- names. The SPECIAL-NAMES 
paragraph can also be used to exchange the functions of the comma and 
the period in the PICTURE character string and in numeric literals. In 
addition, the user may specify a substitution character for the currency 
symbol {$) in the PICTURE character string. 
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SPECIAL -NAMES Paragraph 

r ^ 

I General Format | 

|. ^ 

SPECIAL- NAMES. 

[f unction-name-1 IS mnemonic- name] . . . 
[function-name- 2 [IS mnemonic-name] 

ON STATUS IS condition- name-1 

OFF STATUS IS condition-name-2 

[OFF STATUS IS condition-name-2] ) 

\ ]... 
[ON STATUS IS condition-name-1] ) 

[CURRENCY SIGN IS literal] [DECIMAL^ POINT IS COMIA] . 



When the SPECIAL- NAMES paragraph is specified, the comma or the 
semicolon may optionally be used to separate successive entries; there 
must be one, and only one, period, placed at the end of the paragraph. 

Functi on-name- 1 may be chosen from the following list: 

SYSLST 

SYSPCH 

SYSPUNCH 

SYSIPT 

CONSOLE 

COl through C12 

CSP 



literal 

If SYSLST, SYSPCH, SYSPUNCH, SYSIPT, or CONSOLE are Specified, the 
associated m nemonic-names may be used in ACCEPT and DISPLAY statements, 
Each of these function-names may appear only once in the SPECIAL-NAMES 
paragraph. 

If COl through C12, CSP^il^^m^^^^^^^^ are specified, the 
associated mnemoni c- names may be used in a WRITE statement with the 
BEFORE/AFTER ADVANCING Option. These function-names are the carriage 
control characters shown in Figure 7. 





Function-name-1 


1 


Action Taken 


CSP 




T 

1 
1 _ 


suppress spacing 


COl 


through CO 9 


1 

1 
1 . 


skip to channel 1 through 9, 
respectively 


CIO 


through C12, 


T 

1 

1 
±. 


skip to channel 10, 11, 
12, respectively 



I- 

SOl through S05 1 IBM 1442:" pcteket s^l^^c^^ 1 or 2 

{■ IBJ.3?2Si4(S;""-pO|Ck€t; "selfeiQt^ PI or -P2 ""2 
I IBM' 2560; stacker- select 1 through 5 
j IBM"* 3525'?' stacker select 1 or 2 
I IBM 5425^ stacker select 1 through 4 

L C: i ± !_: 1 . 

Figure 7. Choices of Function-name-1 and Action Taken 
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Page of GC28-6394-4, -5, -6 revised 12/03/76 by TNL GN26-0887 

SPECIAL -NAMES Paragraph 

The use of a literal indicates that function-name-1 identifies Report 
Writer output. The mnemon i c-name should appear in a CODE clause in a 
report description entry (RD) (see "Report Writer"). One such 
SPECIAL-NAMES entry may be given for each report defined in a program. 
The specified literal must be a one-character nonnumeric literal. 

function- name- 2 is used to define a one-byte switch and may be 
specified as UPSI-0 through UPSI-7. These switches represent the User 
Program Status Indicator bits in the DOS communications region (see IBM 
System/360 Disk Operating System: System Control and System Service 
Programs , Form C24-5036) . The status of the switch is specified by a 
condition- name and interrogated by testing it. One condition- name may 
be associated with the ON status; another may be associated with the OFF 
status (see "Switch- Status Condition"). One condition- name must be 
associated with function-name- 2. A mnemonic- name, a second 
condition- name, or both may be associated with the f unction-name-2 as 
well. The condition-names represent the equivalent of level-88 items 
where UPSI-n or mnemonic-name may be considered the conditional 
variable. 

litheic WBX'^n. or iene^ioni<?-iiaxBe saay h& ij$M for qualification at the 
<5scjndlfcio»'-sia,me * 

i^ot.^ ; fMs coi^il-er does not sapij^aart hardware s»ifcohe$« Sowever, ttie 
^vjfitch statiss f tmotion is provided ^^ aa extension to $up|«3rt tit^gf systeia 
^SI ssvrltclies^ whicix are prograa* switches tiiat serve the f aoictioii of 
Ijardwar^ $«dtclies» 

To use UPSI switches #2, you could code your program as follows: 

SPECIAL NAMES. 

UPS 1-2 IS SWITCH- 02 
ON STATUS IS TAPE-FILE 
OFF STATUS IS DISK-FILE. 

PROCEDURE DIVISION. 

TEST-SWITCH-02. 

IF TAPE-FILE 

THEN GO TO OPEN-TAPE. 

IF DISK-FILE 

THEN GO TO OPEN-DISK. 

(1) // UPSI 00100000 

(2) // UPSI 00000000 

When executing your program with the first UPSI card you would 
go to OPEN-TAPE; when executing it with the second UPSI card 
you would go to OPEN-DISK. 

The literal which appears in the CURRENCY SIGN clause is used in tine 
PICTURE clause to represent the currency symbol. The literal must be 
nonnumeric and is limited to a single character which must not oe any of 
the following characters: 

1. digits through 9 

2. alphabetic characters A, B, C, D, P, R, £, V, X, Z, or the space 

3. special characters * + - , . ; ( ) " or ' 

If the CURRENCY SIGN clause is not present, only the $ can be used as 
the currency symbol in the PICTURE clause. 



ftotei 



lii 



iiiiiiii^iliiiiiii 



clause 



iiiiiiiiiiii 



ill 



;i;iel: 



iiillilll; 



point 
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FILE -CONTROL Paragraph 



The clause DECIMAL-POINT IS COMMA means that the function of the 
comma and the period are exchanged in PICTURE character strings and in 
numeric literals. 



ENVIRONMENT DIVISION — IN PU T-OUTPUT SECTION 

The Input-Output Section deals with the definition of each file, the 
identification of its external storage media, the assignment of the file 
to one or more input/output devices and with information needed for tne 
most efficient transmission of data between the media and the object 
program. The section is divided into two paragraphs: the FILE-CONTROL 
paragraph, which names and associates the files used in the program with 
the external media; and the I-0-CONTROL paragraph, wnich defines special 
input/output techniques. 



r 1 

I General Format | 

1^ ^ 

[ INPUT-OUTPUT SECTION. 

FILE-CONTROL . { f ile-control-entry} ... 

[ I-Q-CONTROL . input-output-control-entry] ] 

L J 



FILE-CONTROL PARAGRAPH 

Information that is used or developed by the program may be stored 
externally. File description entries in the Data Division name the 
files into which information is placed and specify their physical 
characteristics. The FILE-CONTROL paragraph assigns the files (by the 
names given in the file description entries) to input/output devices. 



r 1 

I General Format | 

|. ^ 

FILE-CONTROL . 

{SELECT Clause 
ASSIGN Clause 
[RESERVE Clause] 
[FILE-LIMIT Clause] 
[ACCESS MODE Clause] 
[PROCESSING MODE Clause] 
[ACTUAL KEY Clause] 
[NOMINAL KEY Clause] 
[RECORD KEY Clause] 
[TRACK-AREA Clause] . } . . . 



Each SELECT sentence must begin with a SELECT clause followed 
immediately by an ASSIGN clause; tite Orii^lT in whicb the Oj^tiOtial clauses 

are tfxit^&n Is not, si^nii^i-csatst^ 
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SPECIAL-NAMES Paragraph 



The use of a literal indicates that f unction- name-1 identifies Report 
Writer output. The mnemo nic- n ame should appear in a CODE clause in a 
report description entry (RD) (see "Report Writer"). One such 
SPECIAL-NAMES entry may be given for each report defined in a program. 
The specified literal must be a one-character nonnumeric literal. 

Function- name- 2 is used to define a one-byte switch and may be 
specified as UPSI-0 through UPSI-7. These switches represent the User 
Progj m Status Indicator bits in the DOS communications region (see IBM 

System/360 Disk Oper a ting S y stem: System Control and System Service 

Programs , Form C24-5036) . The status of the switch is specified by a 
condition- name and interrogated by testing it. One condition- name may 
be associated with the ON status; another may be associated with the OFF 
status (see "Switch- Status Condition"). One condition-name must De 
associated with function-name-2. A mnemonic- name, a second 
condition- name, or both may be associated with the function-name-2 as 
well. The condition-names represent the equivalent of level-88 items 
where UPSI-n or mnemonic-name may be considered the conditional 
variable. 




1^® literal which appears in the CURRENCY SIGN clause is used in the 
PICTURE clause to represent the currency symbol. The literal must be 
nonnumeric and is limited to a single character which must not be any of 
the following characters: 

1. digits through 9 

2. alphabetic characters A, B, C, D, P, R, S, V, X, Z, or the space 

3. special characters * + -,.; ( ) " 1©?};^ 

If the CURRENCY SIGN clause is not present, only the $ can be used as 
the currency symbol in the PICTURE clause. 




The clause DECIMAL- POINT IS COMMA means that the function of the 
comma and the period are exchanged in PICTURE character strings and in 
numeric literals. 
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FILE-CONTROL Paragraph 

ENVIRONMENT DIVISION — INPUT-OUTPUT SECTION 



The Input-Output Section deals with the definition of each file, the 
identification of its external storage media, the assignment of the file 
to one or more input/output devices and with information needed for tne 
most efficient transmission of data between the media and the object 
program. The section is divided into two paragraphs: the FILE- CONTROL 
paragraph, which names and associates the files used in the program with 
the external media; and the I-0-CONTROL paragraph, which defines special 
input/output techniques . 



r 1 

I General Format | 

1. ^ 

[INPUT- O UTPUT SECTION. 

FILE-CONTROL . { f ile-control-entry} ... 

[ I-Q-CONTROL . input-output-control-entry] ] 

L J 



FILE-CONTROL PARAGRAPH 

Information that is used or developed by the program may be stored 
externally. File description entries in the Data Division name the 
files into which information is placed and specify their physical 
characteristics. The FILE-CONTROL paragraph assigns the files (by the 
names given in the file description entries) to input/output devices. 



r 1 

I General Format | 

j. ^ 

FILE- CONTROL. 

{SELECT Clause 
ASSIGN Clause 
[RESERVE Clause] 
[FILE-LIMIT Clause] 
[ACCESS MODE Clause] 
[PROCESSING MODE Clause] 
[ACTUAL KEY Clause] 




»•>•-• 



Each SELECT sentence must begin with a SELECT clause followed 
immediately i)y an ASSIGN clause; t|ie order in which; the optional clauses 

^ife MMt^ii- is. iiolf'sl||i|ilfeant. 
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SELECT/ASSIGN Clauses 
SELECT Clause 

The SELECT clause is used to name each file in a program. 



r 1 

I Format | 

^ ^ 

I 1 

I SELECT [OPTIONAL] file-name | 

I ! 

L J 



Each file used in the program must be named once and only once as a 
file-name following the key word SELECT. 

Each file named in a SELECT clause must have a File Description (FD) 
entry or Sort File Description (SD) entry in the Data Division. 

The key word OPTIONAL may be specified only for input files accessed 
sequentially. It is required for input files that are not necessarily 
present each time the object program is executed. When a file is not 
present at object time, the first READ statement for that file causes 
the imperative-statement following the key words AT END to be executed. 
ii3#''ClflMIiBDiSli!iC^ IEiie^r»PP04f.|i^MJs|wQei^fjij'e<^ and will be- treated, a^ a 
&dt|f i^iycS^ ,ti^& iflmqt^ibto is, ■f^'i^Qriraeh through ,!tj^e A;^BG¥i control 
^dtSt^ean[|e3|q ^^''! 'tjife' ;Itei^ ip^k|5yek?eX^;_^_'J^ ' ' ' 



ASSIGN Clause 



The ASSIGN clause is used to assign a file to an external medium, 



r 1 

I Format | 

i. ^ 

ASSIGN TO [integer] system-name-1 [system-name- 2] - . . 

(REEL] 
[FOR MULTIPLE } > ] 

(UNIT) 

L J 

Integer indicates the number of input/output units for a given medium 
assigned to file-name. Since the number of units is determined at 
program execution time (see IBM System/360 Disk Operating System: 
System Control and System S ervi ce Programs , Order No. GC24-5036) , the 
standard definition given above is not the action taken by this 
compiler. 

When specified for files with standard labels or for unlabeled output 
tape files, the integer option is treated as comments. When integer is 
specified as greater than one for unlabeled input tape files, then at 
the end of every reel a message is issued to the operator asking whetner 
or not end-of-file has been reached. It is the user's responsibility to 
provide the operator with correct information as to the number of reels 
in the file. 
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ASSIGN Clause 

For iTiulti vol lime input files with nonstandard labels, the integer 
option is required. For such files, the compiler is unable to 
distinguish between end-of -volume and end-of-file and, therefore, cannot 
determine the number of reels in the file. Therefore, for input files 
with nonstandard labels, the integer option is used to determine the 
number of reels in the file. Integer is an unsigned integer from 1 
through 15. IftiAp- pkrotec •'C|ai» '■imfyy&rx3k^^3ieati Jyw ^tloriiig j^, 
^,i34 '-sffe^^ij^t %n^^j[^t|9kf;pN^3|i4E^iEpu^ fejpenlM. it±k^ ^il^4 

integer is not specified, the system assumes that the file is contained 
on one reel. 



All files used in a program must be assigned to an external mediuiii. 
System-name specifies a device class, a particular device, the 
organization of data upon this device, and the external name of the 
file. Any system-names beyond the first are treated as comments. 

FOR MULTIPLE REEL/UNIT is applicable whenever the number of tape 
units or mass storage devices assigned might be less than the number of 
reels or units in the file. However, this clause need not be specified. 
The system will automatically handle volume switching for sequentially 
accessed files. All volumes m.ust be mounted for randomly accessed 
files. Therefore, wnen this clause is specified, it is treated as 
comments. 

System-name has the following structure: 

SYSnnn-class-de vice- organization [-name] 

where: 

nnn is a three-digit number from 000 through 240 inclusive. This field 
represents the symbolic unit to which the file is assigned. 

class is a two-digit field that represents the device class. The 
allowable combinations of characters are: 

DA for mass storage 

UT for utility 

UR for unit record 

Files assigned to DA devices may have standard sequential or direct 
organization. Wnen organization is direct, access may be either 
sequential or random. 




Files assigned to UT or UR devices must have standard sequential 
organization. 

device is a four- or five-digit field that represents a device number. 
Device number is used to specify a particular device within a device 
class. 

The allowable devices for any given device class are as follows: 

Mass storage (DA) 2311, 2314, 2321 

Utility (UT) 2400, 2311, 2314, 2321 

Unit record (UR) 1442R, 1442P, 1403, 1404 (continuous form.s only), 1443, 
2501, 2520R, 2520P, 2540R, 2540P 

(R indicates reader, P indicates punch) 
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ASSIGN Clause 

Note ; Sort input, output, and work files may be assigned to any utility 
device except a 2321 (see "Sort"). 

organization is a one-character field that specifies file organization. 
The letters that may be specified for each type of file are as follows: 

S for standard sequential files 

A for direct files — actual track addressing 

D for direct files — relative track addressing 



* W^m '^a|fl3fe,i^ ^pejidd ps,, ;li4POT&5;oj; dUfPCETj^^^-lKmever,^ © 'i.» t|ie 
equl^ieife 'dp A,' ^ ;is 't^lie feguivaient bf 0. ^i/ ' ^ ' , '- "/'''>}, 

Figure 8 can be used to determine the correct choice of the organization 
field in system-names. 

name is a three- through seven-character field specifying the 
external-name by which the file is known to the system. If specified, 
it is the name that appears in the file-name field of the VOL, DLBL, or 
TIJBL job control statement (see the appropriate Programmer's Guide ) . If 
name is not specified, the symbolic unit (SYSnnn) is used as the 
external-name. The field must be specified if more than one file is 
assigned to the same symbolic unit. 

Note: An INPUT file must have the same file characteristics as it had 
when created. That is, file-dependent descriptions for the INPUT file 
— such as the device and organization fields of the system-name, OPEi^ 
and CLOSE mode, record de script ions^^^^^^^^i|^^^^^^^^^ — must 
be consistent with those specified when the file was created. 
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ASSIGN Clause CVersion 3) 



r T 
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RANDOM 



direct 



mass 

storage 

device 

mass I RAHDOM f direct • 
storage! \ CREWRITE) 

device j j 



=mass - I tSEQUElKE^Al^J} .indexed i ? f > |J| " f? --r-^ -: . 




Figure 8. Values of Organization Field for File Organization 
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Note: ASCII considerations for the ASSIGN clause are given in 
Appendix E. 

For Version 3, the following additional system devices are 
allowable: 

Mass storage (DA) 2319, 3330 
Utility (UT) 2319, 3330, 3410, 3420 

Unit Record (UR) 2560P, 2560R, 2560W, 3211, 3504, 3505, 3525P, 

3525R, 3525W, 3525M, 3881 

For the Version 3 DA and UT devices (2319, 3330, 3410, 3420), as 
well as for the UR 3211 and 3881 devices, these numbers can be 
specified in the device field of system-name. For these devices, 
the valid entries for the other fields in system-name are unchanged. 

For the 3504 and 3505 card readers , system-name has the following 
format: 

'3504) (S[R], 
SYSnnn-UR- < \- \ / [-name] 



:3505; (O 

The SYSnnn and name fields have the same valid entries as other 
devices. 
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ASSIGN Clause (Version 3) 



For the 2560 MFCK , system-name has the following format: 



'S^ 

Pi jv( pil 

SYSnnn-UR-2560 {R> - < > { > [-name] 
Iw) )x^ ( S 

Y 

-z- 



The name field has the same valid entries as for other devices. 



The SYSnnn field, for card files that do not utilize combined 
function processing, has the same valid entries as other devices. 

The SYSnnn field has special considerations when combined function 
card processing is used. For each associated logical file within 
the copibined function structure there must be a separate SELECT 
sentence; each such associated logical file must be specified with 
the same SYSnnn field. (See Appendix G; Combined Function Card 
Processing for a more detailed discussion.) 



For the device field, the following entries are valid: 



2560R, 3525R for a card read file 

2560P, 3525P for a card punch file 

2560W, 3525W for a 1 to 6 line card print file 

3525M for a multiline card print file 

For the organization field, depending on the device field, the following 
entries are valid: 



3525R 



S[R3 for sequential card read files 
V[R] for read/print associated files 



(reader) iX[k] for read/punch/print associated files 
(y[R] for read/punch associated files 

Note: the optional R field specifies RCE (Read 
Column Eliminate) card reading. (See "RCE and 
OMR Format Descriptor" for further discussion.) 

S[P] for sequential card read files, primary input 

hopper 
SS for sequential card read files, secondary input 

hopper 
V[P] for read/print associated files, primary input 

hopper 
)VS for read/print associated files, secondary input 

hopper 

2560R \X[P] for read/punch/print associated files, primary 
(reader) / input hopper 

XS for read/punch/print associated files, secondary 

input hopper 
Y[P] for read/|)unch associated files, primary input 

hopper 
YS for read/punch associated files, secondary input 

hopper 

S for sequential card punch files 

3525P \t for punch-and-interpret files (see Note) 

(punclTT <X for read/punch/print associated files 

/y for read/punch associated files 

Z for punch/print associated files 
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ASSIGN Clause (Version 3) 



S[P] for sequential card punch files, primary input 

hopper 
SS for sequential card punch files, secondary input 

hopper 
T[P] for punch- interpret files, primary input hopper 
TS for punch- interpret files, secondary input 

hopper 

2560P lX[P] for read/punch/print associated files, primary 
(Dunch) / input hopper 

XS for read/punch/print associated files, secondary 

input hopper 
|Y[P] for read/punch associated files, primary input 

hopper 
YS for read/punch associated files„ secondary input 

hopper 
Z[P] for punch/print associated files, primary input 

hopper 
iZS for punch/print associated files, secondary 

input hopper 



Note ; The T field denotes a normal punched 
output file for which the graphically printable 
punched characters are also printed on print 
lines 1 and 3 of the card. Line 1 contains the 
first 64 characters, left justified; line 3 
contains the last 16 characters, right 
justified. 



fS[P] for sequential print files, primary input hopper 
SS for sequential print files, secondary input 

hopper 
V[P] for read/print associated files, primary input 
hopper 

2560W \VS for read/print associated files, secondary input 
(1 to 6 ) hopper 

line /x[p] for read/punch/print associated files, primary 
print) \ input hopper 

Ixs for read/punch/print associated files, secondary 

input hopper 
Z[P] for punch/print associated files, primary input 

hopper 
ZS for punch/print associated files, secondary 
input hopper 



3525W Tw for sequential 2-line print files 

(2-line \v for read/print associated files 

print) jX for read/punch/print associated files 

(z for punch/print associated files 



3525M ^S sequential multiline print files 

(multi- W for read/print associated files 

line jX for read-punch-print associated files 

print) (z for punch/print associated files 



Note: All input hopper specifications for one 
associated file must be identical. 
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Fiqure 9 has been deleted. 
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RCE/OMR Format Descriptor (Version 3) 
RCE AND OMR FORMAT DESCRIPTOR 

When the user specifies O (for Optical Mark Read) or R (for Read 
Coiuinn Eliminate) in the organization field of system-name , then at 
object time he must provide a format descriptor as the first card(s) in 
his data deck. If the format descriptor is missing for such files, a 
message is issued to the operator, and the job is terminated. 

The format descriptor must be the first card(s) in the data deck. 
Column 1 of the first card must be blank. The keyword FORMAT must be 
punched in columns 2 through 7. Column 8 must be blank. Columns 9 
through 71 can contain the parameters that specify which columns of the 
data cards are to be read in OMR or RCE mode. Continuation cards are 
valid. A continuation code must be placed in column 72 of the preceding 
card. Parameters may then be continued, beginning in column 16 of the 
continuation card. Comments, if used, must follow the last operand on 
each card by at least one blank space, and continuation card 
restrictions miust be observed. 

The format of the format descriptor is as follows: 

Col. 

12 7.9 

II I I 
II I I 
II I I 

W V V 
FORMAT (N1,N2) [, (N3,N4)] . . . 

Nl, N2, N3, and NU may be any decimal integers from 1 through 80. 
However, N2 must be greater than or equal to Kl. N4 must be greater 
than or equal to N3. In addition, for OMR processing, Nl and i^2 must be 
both even or both odd, N3 and N4 must be both even or both odd, and US - 
U2 must be greater than or equal to 2. 

In OMR mode, the user establishes which columns are to be read in OMR 

mode. For example, if the user wishes to 'read columns 1, 3, 5, 7, 9 and 

70, 72, 74, 76, 78, 80 in OMR mode, the following format descriptor is 
valid: 

FORMAT (1,9) , (70,80) 

In RCE mode, the user specifies those columns which are not to be 
read. For example, if the user chooses to eliminate columns 20 through 
30, and columns 52 through 73, the following format descriptor is valid: 

FORMAT (20,3 0), (52,73) 
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RESERVE/FILE-LIMITS Clauses 
RESERVE Clause 

The RESERVE clause allows tne user to modify the number of 
input/output areas (buffers) allocated by the compiler for a standard 
sequential file or (yersion 3 onlj^) a sequentially 3=C(Qe^sed iadexBd 

■file. 



r 1 

I Format ] 

^ ^ 

I 



integer] 
RESERVE <' > ALTERNATE 
NO 



"AREA ~1 
AREAS 



This clause may be specified only for a standard sequential file. 

Integer must have a value of 1. 

A minimum of one buffer is required for a file. If this clause is 
omitted or if 1 is specified, one additional buffer is assumed. 

If NO is specified, no additional buffer areas are reserved aside 
from the minimum of one. 



Prpqxata Procytcfc Jtof orn|iati.oin — Version 3 . , ■ . : m i - ■ •; ; 

For Version 3, the RESERVE clause may spfecify one addii:i'onal buffer 
for a sequentially accessed indexed file. 

Combined function file processing considerations for the RESERVE 
clause are given in Appendix G. 



FILE-LIMIT Clause 

The FILE-LIMIT clause serves only as documentation, and is used to 
specify the beginning and the end of a logical file on a mass storage 
device. 



r 1 

I Format | 

Y ^ 

^ FILE-LIMIT IS \ rdata-name-11 (data-name-2j 



I FILE-LIMITS are) (literal-1 ) lliteral-2 j 

^data-name- 3) rdata-name-4 
[ < > THRU < > ] . . . 

(literal-3 j (literal-U 

L J 
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ACCESS MODE/PROCESSING MODE Clauses 

The logical beginning of a mass storage file is the address specified 
as the first operand of the FILE-LIMIT clause; the logical end of a mass 
storage file is the address specified as the last operand of the 
FILE-LIMIT clause. Because file boundaries are determined at execution 
time from the control cards, this clause need not be specified and will 
be treated as comments. 



ACCESS MODE Clause 



The ACCESS MODE clause defines the manner in which records of a file 
are to be accessed. 



Format 



ACCESS MODE IS 



SEQUEN TIAL^ 
RANDOM ) 



L J 



If this clause is not specified, ACCESS IS SEQUENTIAL is assumed. 
For ACCESS IS SEQUENTIAL, records are placed or obtained sequentially. 
That is, the next logical record is made available from the file when 
the READ statement is executed, or the next logical record is placed 
into the file when a WRITE statement is executed. ACCESS IS SEQUENTIAL 
may be applied to files assigned to tape, unit-record, or mass storage 
devices. 



For ACCESS IS RANDOM, storage and retrieval are based on an ACTUAL 
KEYI^imSHi^mfcil associated with each record. When the RANDOM option 
is specified, the file must be assigned to a mass storage device. 
ACCESS IS RANDOM may be specified when file organization is direct m 



The keyword IS must be specified. 



PROCESSING MODE Clause 



The PROCESSING MODE clause serves only as documentation, and 
indicates the order in which records are processed. 



r 1 

I Format ( 

^ ^ 

I I 

I PROCESSING MODE IS SEQUENTIAL j 

I I 

L J 
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ACTUAL KEY Clause 



This clause is treated as comments, and may be omitted. 



ACTUAL KEY Clause 



An ACTUAL KEY is a key that is directly usable by the system to 
locate a logical record on a mass storage device. The ACTUAL KEY is 
made up of two components. 

1. The track identifier , which expresses a track address at which the 
search for a record, or for a space in which to place a new record, 
is to begin. 

2. The record identifier , which serves as a unique identifier for the 
record and is associated with the record itself. 

When processing a randomly accessed direct file, the programmer is 
responsible for providing the ACTUAL KEY for each record to be 
processed. 



r 1 

I Format | 

|. ^ 

I I 

I ACTUAL KEY IS data-name | 

I 1 

L ^ J 



Records are accessed randomly and are processed in the order in which 
they are accessed. 

The ACTUAL KEY clause must be specified for direct files when ACCESS 
IS RANDOM is specified. 



When a SEEK statement is executed, the contents of data-name are used 
to locate a specific mass storage record area. 

When a READ statement is executed, a specific logical record (located 
by the system using the contents of data-name) is made available from 
the file. 

When a WRITE statement is executed, the given logical record is 
written at a specific location in the file. 

At file creation time, when no more room remains on a given track, a 
standard error occurs, and the user must provide a USE AFTER STANDARD 
ERROR declarative routine to update the track address. 

The keyword IS must be specified. 



The location of a particular logical record must be placed in 
data- name before the execution of the SEEK statement (or if no SEEK 
statement is present, the READ and WRITE statements) . 

Data-name must be a fixed-length item. It must be defined in the 

However, if data-name is specified in the File Section it may not be 
contained in the file for which it is the key. Data-name is made up of 
two components: the track identifier, and the record identifier. 
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ACTUAL KEY Clause 

TKACK IDENTIFIER ; Tne track identifier may be expressed in two ways — 
through relative track addressing, or through actual track addressing. 

Kelative Track Addressing ; The track identifier is used to specify tne 
relative track address at which a record is to be placed, or at which 
the search for a record is to begin. 

Track- id e ntifier rriust be 4 bytes in length, and rriust be defined as a 
8-integer binary data iteiri whose inaximuin value does not exceed 
lb, 777, 215. 

Actual Track Addressing : The track identifier is used to specify the 
actual track address at which a record is to be placed, or at which the 
search for a record is to begin. 

Track identifier must be a binary data item eight bytes in length. 
No conversion is made by the compiler when determining the actual track 
address. The structure of these eight bytes and the permissible 
specifications are shown in figure 10. 

Before beginning processing, it is the user's responsibility to 
initialize R to the figurative-constant LOW- VALUE. The user need not 
concern himself further with this field. 



r T T T 

I PACK I CELL I CYLINDER 
^ + 1 

I M I B B I C C 






Device 



Byte I 



I 1 



I 3 



riEAD 



■T 1 

I RECORD 

-+ 

I R 



2311 



I 0-221 I 



0-199 



0-9 I 0-255 



1 

0-19 I 0-255 



2314 



I 0-221 I 



0-199 



-+- 



4- 



■+- 



2321 



I 0-221 I C 0-9 I .0-19 0-9 



0-4 0-19 I 0-255 



-+- 



-+- 



-+- 



2319 I 0-221 I 
(Version 3) I I 



I 



0-199 



0-19 I 0-255 



■+ 

I 0-255 



3330 I 0-221 I 

(Version 3) | | 



0-403 



0-18 



figure 10. Structure of the first Eight Bytes of ACTUAL KEY — Actual 
Track Addressing 



RECORD IDENTIflER : The symbolic portion of ACTUAL KEY used to identify 
a particular record on a trac^ is the record identifier. 

Record identifier must be from 1 through 255 oytes in length. Data 
within these bytes is treated exactly as specified. 

A record is considered "found" when, for a given track, the record 
identifier at retrieval time matches the record identifier of a record 
in the file being searched. 

ACTUAL KEY EXAMPLES ; Two examples follow, to represent the coding 
necessary to specify the data-name in the ACTUAL KEY clause. 
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ACTUAL KEY Clause 

Relative Track Addressing ; The following example shows an ACTUAL KEY 
using relative track addressing: 

ENVIRONMENT DIVISION. 



ACTUAL KEY IS THE- ACTUAL- KEY. 



DATA DIVISION. 



WORKING- STORAGE SECTION. 
01 THE ACTUAL-KEY. 

02 RELATIVE- TRACK- KEY USAGE COMPUTATIONAL PICTURE IS S9(8) 
VALUE IS 10 SYNCHRONIZED. 

02 EMPLOYEE-NO PICTURE IS X(6) VALUE IS LOW- VALUE. 



Actual Track Addressing ; The following example shows an ACTUAL KEY 
using actual track addressing: 



ENVIRONMENT DIVISION. 



ACTUAL KEY IS THE- ACTUAL-KEY. 



DATA DIVISION. 



WORKING- STORAGE SECTION. 
01 BINARY-FIELD- 1. 
05 TRACK-ID. 

10 M USAGE COMPUTATIONAL PICTURE S999 VALUE IS 0. 

10 BB USAGE COMPUTATIONAL PICTURE S9 VALUE IS 0. 

10 CC USAGE COMPUTATIONAL PICTURE S999 VALUE IS 10. 

10 HH USAGE COMPUTATIONAL PICTURE S999 VALUE IS 0. 

10 R PICTURE IS X VALUE IS LOW- VALUE. 

05 EMPLOYEE-NO PICTURE XXXXXX VALUE IS LOW-VALUES. 
01 ACTUAL-FIELD- 1 REDEFINES BINARY- FIELD- 1. 

05 FILLER PICTURE IS X. 

05 THE- ACTUAL- KEY PICTURE IS X(14). 

Although the track identifier field must consist of eight bytes, nine 
bytes are defined within TRACK-ID. This is because the entry 

10 M USAGE COMPUTATIONAL PICTURE S999 

necessarily defines two bytes. However, as Figure 4 shows, the M field 
must be one byte in length. Therefore, BINARY-FIELD-1 must be redefined 
as ACTUAL-FIELD-1. In this way the superfluous high-order M byte can be 
stripped off from THE- ACTUAL- KEY through specification of the entry 

05 FILLER PICTURE IS X 

in ACTUAL-FIELD-1. The first eight bytes of THE- ACTUAL- KEY thus 
represent the track identifier, and the last six bytes represent the 
record identifier. 
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NOMINAL KEY Clause 
NOMINA.L KEY Clause 



A NOMINAL KEY is used with indexed files. The clause specifies a 
'symbolic identity for a specific logical record. 



I •• r " — -n — ■ ' . "" ■ '■ — " — " 

4i\ ■ ■■ Format 
'* . L '.^. .: .__ ^-_.__^ — _. ■ — -■ ^_ — .. 



i: 



'1 NOMINAL KEY IS data-name .' :[■■ 

:;[ _ _ __ . __ ;V_- _; ■ _____ .__ ___ ____ ___ _■ ___;.__ ■ _____._■ _■■__! 



1 A NOMINAL KEY clause is required when an indexed file is accessed 
l>randomly> or when an indexed file is accessed sequentially and a STARC 
I Statement is used. 



: i When the NOMINAL KEY clause is specified for an indexed file that is 
lecessed randomly: 

Data-name may specify any fixed-length Working- Storage item from 1 ■ 
through 255 bytes in length. rl 

* Data- name must be at a fixed displacement from the beginning of the 
record description in which it appears; that is, it may not appear 
in the entry subsequent to an OCCURS clause with a DEPENDING ON 
option. 

The symbolic identity of the record must be placed in data-name 
before the execution of the READ, WRITE, or REWRITE statement. 

The symbolic identity is used when retrieving or updating a record 
to locate the logical record with a matching RECORD KEY, or, when 
adding a record, to create the key that will be associated with the 

^} record, 

1 "ii ^ ^ ■ ' , . ; ■■■■., E 

i When a READ statement is executed, a specific logical record is made 
available from the file, using the contents of data-natae . 

^''' When a WRITE or REWRIT]^ statement is executed, the symbolic identity 
, j of the record specified by data- name is used to determine the 
. physical location at which the record is written. 

When the NOMINAL ICEY is specified for an indexed file that is 
*i?essed sequentially: 

Data-name may specify any fixefd-length Working-Storage item from 1 
through 255 bytes in length. 

Pata-name^ miust; be at a^ fixed displacement txom HtAie beginning of the 
reicsord. d^criptidn in whidh it appears; |:hat isL, it may npt appear 
in the entry subs'equeiit to an OCCURS clause witn a DEPENDING ON 
II option, 

ll Ttie NOMINAL KEY clause miUSt be specified if tlie START statement is 

1 1 used. When' the START statement is executed, tjhe contents of 

il datd-n'gme are. t;ise^ t©.lobate, the repord at wM'fch processing is to 

I |>eg^n," Tl>e;>e3ift\||^|^ip|ftt^i||nt acfciJ^^-.tliisf ^e^gsord. 
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.RECOKP. KEf /TpA€K*^ffl®%;€i^.4 



RJBCORD KEir Clause 



? t' 



A REiCORp KEY is used-; to 'acce^fs' a;a; 'i.-'»de|sited-^;f illel 'l-t-speqlfie^; tlief j Bi| 
'.it-^m. witiii'n the data recorjdl th^t cJomtains? 'iJaB Key for/jtiie r^cbirj<|^^ • " ||-{; ' 



FtDlrinat 






I 
. ( ; RECORD ,KEY IS dafca-naiQe 

.1 ' : • 



Th,e Ra::OKD KEY ;clause must be sp»e,cifi^c| fqr an iridfexed file. - ; ji 

V Data- name 'raust |he a ifixeed-jl'erigt'h it^ .within tJhe 'arecord.; ' It teisstl he} 
^tLeds than 256 bytes in 'length., . ^ ..,;,■ ' . I . [ ' 'l '. ■■ I I \ .[ , 

t _ ^ jWhen more 'than tone record 'description 'is a^ssodiated with b -fiilej,! an |j 
a'd^ntical field inbst appear iri eadh 'description akid. Imust be .i'r^ >th^ £^alr«e 
'i^rel^ative posiition '.from thei .begiiining of; tjhd recorjd,; although th^ ^ai»e ' ; 
: data-name need not be used. '■ \ : ' ' ' 1 ' I ; 

For compatibility with othqr systems, ; data'-naiae should be defined tc>ji 
-exclude the first byte of t!he recdrd in tihe followiiig cases: 

i 1. h file with unblocked records , 

,2. A file from which reqord^ arq to be deleted 

i 3. A file in which any kiey starts .with .a delete-cqde charadt^i; ', ; 
i (HIGrt-VMiUE) i I 1 ' ; . 

3 with these exceptions, the litem specified by data- name may appear 
.anywhere within the record, '.. ] 



^TRACK-AREA Clause 



This clause may be optionally used when records are to be added to ai 
indexed file in the random access mode. Efficiency in adding a record 
is improved when this clause is specified. 



. r 

I Format 
J. . 

I 

I TRACK-AREA IS integer CHARACTERS 

1 

L : 



The size of the area may be defined to hold from one to all the 
blocks on a track including their count and key fields. 

Integer must be at least 24 + N <40 + RECORD KEY length + block 
size) , where N is any number from 2 to the maximum number of blocks on 
track. If N equals 1, then integer must be 24 + 50 + RECORD KEY length 
+ block size. Integer must not exceed 32,767. (See IBM System/360 Diskp 
Operating System: Data Management Concepts , Form C2U-3427) . j*. 
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RERUN Clause 



I -0- CONTROL PARAGRAPH 



The I-0-CONTROL paragraph defines some of the special techniques to 
be used in the program. It specifies the points at which checkpoints 
are to be established, the core storage area which is to be shared by 
different files, the location of files on multiple-file reels, and 
optimization techniques. The I-0-CONTROL paragraph and its associated 
clauses are an optional part of the Environment Division. 



General Format 



I-0-CONTROL. 



[RERUN Clause] . . . 
[SAME AREA Clause] ... 
[MULTIPLE FILE TAPE Clause] 



L J 



RERUN Clause 



The presence of a RERUN clause specifies that checkpoint records are 
to be taken. A checkpoint r e cord is a recording of the status of a 
problem program and main storage resources at desired intervals. The 
contents of core storage are recorded on an external storage device at 
the time of the checkpoint and can be read back into core storage to 
restart the program from that point. 



Format 1 

RERUN ON system- name 

EVERY integer RECORDS OF file-name 

L J 




The system-name in the RERUN clause specifies the external medium for 
the checkpoint file, the file upon which checkpoint records are to be 
written. It has the following structure: 

SYSnnn-class-device-organizationC-name] 
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SAME Clause 

The SYSnnn and name fields in the system-name for the checkpoint file 
cannot be the same as any specified in any ASSIGN clause. 

Checkpoint records are written sequentially, and may be assigned to 
any utility or mass storage device (except the 2321) . Only one RERUN 
clause in a program may use a mass storage device for writing checkpoint 
records. (A complete list of utility and mass storage devices is given 
in the description of system-name in the ASSIGN clause.) 

Format 1 specifies that checkpoint records are to be written on the 
unit specified by system- name for every integer records of file-name 
that are processed. The value of integer must not exceed 16,777,-215, 

More than one Format 1 RERUN clause may be included in a program. If 
multiple RERUN clauses are specified, they may be specified either for 
the same or for different checkpoint files. 

'*6jort.'* .^ , " ' ■-",'' ■■'-,'- "'•"' ' -"■. . -' ' ■"\^'.' \' '^ .- :'"- -, 

Note ; ASCII considerations for the RERUN clause are given in 
Appendix E. 



SAME Clause 



The SAME clause specifies that two or more files are to use the sam^ 
core storage during processing. 



r 1 

1 Format | 

i. _™ ^ 

rSORT 



SATdE 



RECORD 



AREA FOR file-name-1 {f ile-name-2} 



A SAME clause with the SORT option is described in "Sort." The 
following discussion pertains only to the SAME AREA and SAME RECORD AREA 
clauses. 

The SAME RECORD AREA clause specifies that two or more files are to 
use the same main storage for processing the current logical record. 
All of the files may be open at the same time. A logical record in the 
shared storage area is considered to be: 

• a logical record of each opened output file in this SAME RECORD AREA 
clause, and 

• a logical record of the most recently read input file in this SAME 
RECORD AREA clause. 

If the SAME clause does not contain the RECORD option, the area being 
shared includes all storage areas assigned to the files; therefore, it 
is not valid to have more than one of these files open at one time. 
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MULTIPLE FILE TAPE Clause 

More than one SAME clause may be included in a program; however: 

1. A file-name must not appear in more than one SAME AREA clause. 

2. A file-name must not appear in more than one SAME RECORD AREA 
clause. 

3. If one or more file-names of a SAME AREA clause appear in a SAME 
RECORD AREA clause, all of the file-names in that SAME AREA clause 
must appear in that SAME RECORD AREA clause. However, that SAME 
RECORD AREA clause may contain additional file-names other than 
those that appear in that SAME AREA clause. 

The SAME RECORD AREA clause implicitly redefines the logical records 
of each file named. This allows the user to write the same record to 
more than one file, or to write a record he has just read without any 
extra MOVE statement. An extra record area is generated for this 
purpose. 

The SAME AREA clause saves space generated for record areas. 
However, files named in a SAME AREA clause cannot be open at the same 
time, thus limiting processing possibilities. 

MULTIPLE FILE TAPE Clause 

The MULTIPLE FILE TAPE clause is used to indicate that two or more 
files share the same physical reel of tape. 



Format 



MULTIPLE FILE TAPE CONTAINS file-name-1 



[ POSITION integer-1] [file-name-2 [ POSITION integer-2]] ... 

L j 

The MULTIPLE FILE TAPE clause is required when more than one file 
shares the same physical reel of tape. .llGpp^ieiliiitgl^ 
the ^lauiiltlS^'ibieilc*^^ Vi ii-i j rfcl -I t|vi-'Pji| ^Mm^^- \ V' ? l^ v}-': ;?■; 1$ 







The MULTIPLE FILE TAPE clause is pertinent only when the tape has 
nonstandard labels, or when labels are omitted. It is treated as 
comments for a tape that has standard labels. 

Regardless of the number of files on a single reel, only those files 
that are used in the object program need be specified. 

For purposes of positioning, a physical file is considered to be that 
segment of a tape that is terminated by a tape mark. Note that two 
consecutive tape marks are considered to terminate two physical files. 

If all file-names refer to single physical files and have been listed 
in consecutive order, the POSITION option need not be given. 

The POSITION integer relative to the beginning of the tape must be 
given if any file on the tape is not listed, or if a tape contains more 
than one physical file., i.e., more than one tape mark. Therefore, if a 
tape contains two files, each having one nonstandard header label 
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APPLY Clause 

terminated by a tape mark, their positions would be 1 and 3. If the 
labels are not to be processed, the positions may be specified as 2 and 
U, and the LABEL RECORDS clause must specify OMITTED. 

The compiler will position the tape by skipping past a number of tape 
marks equal to POSITION number minus one. 

Caution : POSITION should be used only for input files. If POSITION is 
used for output files, overlay may occur. 

More than one MULTIPLE FILE clause may be included in a program. 

Tlj^re ^re bIk optioiis of tlie AFFItY <:3^iuse. An^ or all tmj ^jppear is 
one COBOIf program* 



I Fbos^t for option 1 | 

I ' I 

I AI*PI.Y imiTl-ONl.T <M file-iia]^-l Cfile-naBO-21 »** i 



This option is \>^&d to laake optiieal ttse of btjf f er $pa.oe allocated 
T4h&^ creating a staBdard segnent-ial file witJh block^sd V-tao<3« records*' 
Hooaally^ a buffer is trunoat.ed wfo«n the Rexirotsas siste reoord no lou^^r 
f it-s . Oae Of tliis^ option, will cass&e • & -baf f-er to- be t-riSJicat^^ only- ^i^n 
tiie- next- record does, not fit in-tbe buffer. The file ma.^^ be o^eneed oiily 
for OUTFIT. 

Every Tj*JJtI^E statement associated witb the file ipust use tbe ^BI*rE 
recprd ;;;^ a| ae FROM identifieij^ option. None of the subf ields of 
record-^Bame i«ay be referred to in procedural SitateiRents, nor vmy any of 
the subf ields be tlie object of ^n OCCllRS DE^lHDIiSG OJS ciaisse. 



I Format for Option 2 | 



i APPI^Y EXTENr:f£l>-;;Bl;ABCH ON f ile^-najae-^l"' C£ile-naiBe-"2] *♦, , \ 

I - I 

t — , *«..-►►* ^M . -,«*«.< ^ 

TMs o|>tion is used to control the extent of the eearch made for a 
epeoified record* It joctay refer only to direct files opened as W^iJT or 
I-O wlien ACCESS IS B;asi>OM* ■ In noriaal operation, execution of a BEM3 or 
ii^EWHlTE stataroeBtt for a file oaoses the specified traok to be searched* 
If the desired record cannot be found on the specified track, the 
IsrvALIB KBY Option of the BEM) or REWRITE statei&ent is executed* 

If BXTEHDED-SEARCH is applied ^ the search for a specified record 
-key begins on the track s.pecified and continues until one of two 
conditions occurs i 

1 * The record is found, 

2. *rhe end of the specified cylinder is reached* 

In the second case^ the IMVALID-KBY option of the READ or REWHI^E is 
executed. The INVALID KEY option may also be executed when the specified 
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M^Ii^liy" Clause* 



^liiiraclc is outside the limits of the file. It is the user's responsibility 
= to determine tlm cause of the IW^hhTD KEY condition* 






Fooaat tar Ojptioii 3 i 



U hFBJ^j mii^-ymrti om fiie-nguae-i ifiie-nasRe-21 *** \ 

:i _^ ^ J 



I9iis option is u$^d to cause parity checking of records written on a 
^.itoass storage deviciS* WBI^Tl -VERIFY is always asst^ifted vth&a reccards are 
jiiifritt^^n <m a 2321 mass ^toraefe device. 

If tliist clatise is csmitrted^ any records writtea on the mass storage 
device;^ are not. verified* This clause naay jbe specified for any file 
■ae^igned. to any msiss storage deviC'^j ejccept the 2321, 



I 

I Fonaat for option 4 j 

■ I ' "Mffif ' C y i^-OVERFI^OW OF integer OIRACKS OH file-nai»e-l [ 

i i 

I JfiIe-na»te-23 ,,, | 

I _^ ^^ _ _j 



I'iiis option roay be specified when records are is^eing created for or 
added to an indexed file. It specifies the aujsber of tracks to be 
reserved for overflois records on each cylinder* 

The ^axiffitim value Of integer for each valid device^ plus the numfcer 
of tracks, reserved when the h'^wixl clause is omitted is as follows: 

Devioe |*!{a!gig}uit!t integfer Value Default 

2311 S 2 

2314 18 Q 

231 » aversion 3> IS ^ 

3330 aversion 3) 17 3 

^^ int e c^ e r is specified as 0^ no cylinder overflow area is reserved - 
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[ For$!i$t f oir c^fciott s i 






I 

j 



^his option iaay h^ specif l^d otily :f03f IMesce^ filers* It;- 1^ ^i^ea^ to 
•Sgkecif 3f tJjufe liigliest le^s^l iisdex and th« di^vlc^ oja wMcli it. 1^ t-O r^^sMe* 

<^ftil:fc«d for mk iadexed fii^^ <:fyiiMer ind^x is ^^^tJis^^ to lie tli^ Mslie^st: 
level iii^ejf awd tli'fe iiid«x mast: reside <m tlie saise device «s; the priisfe 
akta* if l5^-S^Eift*IM)EX ie specified, thmi bofck the iS^st^r in^^ic ana the 
c^rliMer i»aex will r«s&lde <m tMB ^^evlc^i «tgte<Jiflei4:. 



rors^t for o^tioa 6 I 

'.\ i 

i ^ Fli X . C0R1 ^ II3X j^e: ^ TD <3a.t?t~na^e OM file^i^me'-l |file*»aiae«-2l •.:,, | 

This optian m-^y be ^gtec-if ied -oiily for aju indexed file being accessed 
.randomly. It jspecifi^st th^ storage area to be vtsed to hold the cylinder 
iBdex: in core, fise c:j?liMer iMex cxmt^iMs one entry for eaoh cylinder 
in the prime data area^ J^ll or part of the cylinder index can reside in 
main storage. If the core storage area defined by da t a-^name is iar^© 
enough for all the cylinder index entries to be read!'' x'lito" atora-ge at 
OBe time^ no presorting of the record keys xmBd be done. If, however, 
the ar«a assigned te the cylinder index is not large: enough^f the k.&f^ 
of the XBcar^s to lite processed sibould be |>resorted so timt tSite cylinder 
index in core is fia.lly utilized. 

ifl^lrfil H i ^ i?^s^t Ibe ^ f ix^esa-length; ite^ iS^fitted i^ the .i^rMng-Stor^ge 
;'SEeot'ioB'r"fEe area 4^f ined by 4 ft&-^n$im tm^t be at least O^HSf) * (6*key 
rleisgtl^i) ^ where ^* is the jaui^er "of <;ylijider ind«K ^atries to be read into 
scor^^^3-tj^age_at oite tiii^^^^^j3td_^^^e^^yt^i^_t^ recsocd k^a 

'Word^ to ho-id tko ^■iittire'i^'ex Ija. <sQ-rei. § ^ust e^jSTl the mssd^er of 
.cylinders in tJKe'prlke data area* Sata^jaaiae Mist be at a fixed 
^di!^lacej!a<&jat ft<m the begln^aing oi tfee record descrlptloh* entry Ib 
which it appears # that is^ it isay not ap|>ear in tfee entry snhsecpent 
rto an OCCSmS olauae mth tite' gBPEJDIH^ (M option .^ ^ 

l;-;^r«s s-p^«3-ifiedl t^^ l^e ^issairb- ,i^tjSiri^aBe-a^ 'opiXy <«w 



;=of tlJEes^e f 11^$ <raii M op€aft a.t a«.-r 9fi^»'^^ t^«»i«^* i&.^ f il«f**ii^a^ B«*st; i^ot ii^ 



pjlse «aa^ <?<!^c^ Wor^^fe «Jteai. ^e .;^o*i. 3i&»oci;ii^t^; ^i^ <i:m> fll«^ tisat a^r^ 



" l> T i ?jv i^li l «H( W ' ^ *i W 
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PART III ~ DATA DIVISION 



• DATA DIVISION ~ INTRODUCTION 



• ORGANIZATION OF THE DATA DIVISION 



• FILE DESCRIPTION ENTRY — DETAILS OF CLAUSES 



• DATA DESCRIPTION 



• DATA DESCRIPTION — DETAILS OF CLAUSES 
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External Data — Description 
DATA DIVISION — INTRODUCTIOiSr 



The Data Division of a COBOL source program contains the description 
of all information to be processed by the object program. Two types of 
data may be processed by a COBOL program: information recorded 
externally on files and information created internally. The second 
type, which exists only during the execution of a program, will be 
discussed later in this chapter in "Working-Storage Section." 



ORGANIZATION OF EXTERNAL DATA 

A file is a collection of records. There are two types of records: 
physical records and logical records. A physical record is a group of 
characters or records which is treated as an entity when moved into or 
out of core storage. A logical record is a number of related data 
items. It may itself be a physical record, i.e., contained within a 
single physical unit, or it may be ,one of several logical records 
contained within a single physical unit, or it may extend across two or 
more physical units. 

COBOL source language statements provide the means of. describing the 
relationship between physical and logical records. Once this 
relationship is established, only logical records are made available to 
the COBOL programmer. Hence, in this publication, a reference to 
records means logical records unless the terra "physical records" is 
used. 



DESCRIPTION OF EXTERNAL DATA 

In the discussion of data description, a distinction must first be 
made between a record's external description and its internal content. 

External description refers to the physical aspects of a file, i.e., 
the way in which the file appears on an external medium. For example, 
the number of logical records per physical record describes , the grouping 
of records in the file. The physical aspects of a file ate specified in 
File Description entries. 

A COBOL record usually consists of groups of related information that 
are treated as an entity. The explicit description of the contents of 
each record defines its internal characteristics. For example, the type 
of data to be contained within each field of a logical record is an 
internal characteristic. This type of information about each field of a 
particular record is grouped into a Record Description entry. 
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Data Division -- Structure 



ORGANIZATION OF THE DATA DIVISION 



The Data Division is divided into four sections: the File Section, 
the Working- Storage Section, ^^^^^^^^^^^^fcll^^^ and the Report 
Section. 

All data that is stored externally, for example, on magnetic tape, 
must be described in the File Section before it can be processed by a 
COBOL program. Information that is developed for internal use must be 
described in the Working-Storage Section . I ^pxm^i^^ ijf^pp^^^^^lfejf 

^g^^^K:^^^^ii»^^'^^^3^giQ^^|3^^iy>l^ati^i: ^^ ^g[t4t^^ The 
content and format of all reports that are to be generated by the Report 
Writer feature must be described in the Report Section . 

The Data Division is identified by, and must begin with, the header 
DATA DIVISION. The File Section is identified by, and must begin with, 
the header FILE SECTION. The header is followed by one or more file 
description entries and one or more associated record description 
entries. The Working-Storage Section is identified by, and must begin 
with, the header WORKING- STORAGE SECTION. The header is followed by 
data item description entries for noncontiguous items, followed by 
record description entries. 




Report Section is identified by, and must 
begin with, the header REPORT SECTION. The header is followed by one or 
more report description entries, and one or more report group 
description entries. 

For the proper formats of Division and Section headers, see "Use of 
the COBOL Coding Form" in "Language Considerations." 



Structure of the Data Division 
DATA DIVISION . 
FILE SECTION, 
{file description entry 
{record description entry}...}... 
WORKING - STORAGE SECTION , 
[data item description entry]... 
[record description entry] . . . 

i'lr 




REPORT SECTION . 

{report description entry 

{report group description entry}...}... 

Each of the sections of the Data Division is optional and may be 
omitted from the source program when the section is unnecessary. When 
used, the sections must appear in the foregoing sequence. 
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Level Indicator/Number 
ORGANIZATION OF DA.TA DIVISION E NTRIES 

Each Data Division entry begins with a level indicator or a level 
number , followed by one or more spaces, followed by the name of a data 
item (except in the Report Section) , followed by a sequence of 
independent clauses describing the data item. The last clause is always 
terminated by a period followed by a space. 



Level Indicator 

The level indicator FD is used to specify the beginning of a file 
description entry. When the file is a sort-file, the level indicator SD 
must be used instead of FD (see "Sort"). When a report is to be 
generated by the Report Writer feature, the level indicator RD, 
specifying the beginning of a report description entry must be provided 
for each report in addition to the FD for the file on which the report 
is generated (see "Report Writer"). Figure 11 summarizes the level 
indicators . 



r T 1 

I Indicator | Use ( 

j. + ^ 

j FD I File description entries | 

I SD I Sort-file description entries | 

I RD I Report description entries | 

Figure 11. Level Indicator Summary 



Each level indicator must begin in Area A and be followed in Area B 
by its associated file-name and appropriate descriptive information. 

Level indicators are illustrated in the sample COBOL programs found 
in Appendix B. 



Level Number 

Level numbers are used to structure a logical record to satisfy the 
need to specify subdivisions of a record for the purpose of data 
reference. Once a subdivision has been specified, it may be further 
subdivided to permit more detailed data reference. 

The basic subdivisions of a record, that is, those not further 
subdivided, are called elementary items ; consequently, a record may 
consist of a sequence of elementary items, or the record itself may be 
an elementary item. 

In order to refer to a set of elementary items, the elementary items 
are combined into groups. A group item consists of a named sequence of 
one or more elementary items. Groups, in turn, may be combined into 
larger groups. Thus, an elementary item may belong to more than one 
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Level Number 

group. In the following example, the group items MARRIED and SINGLE are 
themselves part of a larger group named RETIRED- EMPLOYEES: 

02 RETIRED-EMPLOYEES. 
03 MARRIED. 

04 NO-MALE PICTURE 9(8). 

04 NO-FEMALE PICTURE 9(8). 
03 SINGLE. 

04 NO-MALE PICTURE 9(8). 

04 NO- FEMALE PICTURE 9(8). 



A system of level numbers shows the organization of elementary items 
and group items. Since records are the most inclusive data items, the 
level number for a record must be 1 or 01. Less inclusive data items 
are assigned higher (not necessarily successive) level numbers not 
greater than 4 9. There are special level numbers — 66, 77, and 88 — 
which are exceptions to this rule. Separate entries are written in the 
source program for each level number used. 

A group includes all group and elementary items following it until a 
level number less than or equal to the level number of that group is 
encountered. The level number of an item which immediately follows the 
last elementary item of the previous group must be equal to the level 
number of one of the groups to which a prior elementary item belongs. 



Standard 



01 



A. 




05 


C-1. 




06 D PICTURE X. 




06 E PICTURE X. 


05 


C-2. 





Level numbers 01 and 77 must begin in Area A, followed in Area B by 
associated data names and appropriate descriptive information. All 
other level numbers may begin in either Area A or in Area B, followed in 
Area B by associated data names and appropriate descriptive information. 

A single-digit level number is written either as a space followed by 
a digit or as a zero followed by a digits At least one space must 
separate a level n\imber from the word following the level number. 



Special Level Numbers 



Three types of data exist whose level numbers are not intended to 
structure a record. They are: 

66: Names of elementary items or groups described by a RENAMES clause 
for the purpose of regrouping data items have been assigned the 
special level number 66. For an example of the function of the 
RENAMES clause, see "Data Description." 

77: Noncontiguous Working-Storage items, which are not subdivisions of 
other items and are not themselves subdivided, have been assigned 
the special level number 77. 
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File Section 

Entries that specify condition-names to be associated with 
particular values of a conditional variable have been assigned the 
special level number 88. For an example of level-88 items, see 
"Data Description." 



Indentation 



Successive data description entries may have the same format as the 
first such entry or may be indented according to level number. 
Indentation is useful for documentation purposes, and does not affect 
the action of the compiler. 



FILE SECTION 



The File Section contains a description of all externally stored data 
(FD) , and a description of each sort-file (SD) used in the program. 

The File Section must begin with the header FILE SECTION followed by 
a period. The File Section contains^ file description entries and 
sort-file description entries, each one followed by its associated 
record description entry (or entries). 



r 1 

I General Format | 

|. ^ 

FILE SECTION . 

{file description entry 

{record description entry} ...}... 

L J 



File Description Entry 

In a COBOL program, the File Description Entries (FD and SD) 
represent the highest level of organization in the File Section. The 
File Description entry provides information about the physical structure 
and identification of a file, and gives the record- name (s) associated 
with that file. 

For a complete discussion of the sort-file-description entry, see 
"Sort." 



Record Description Entry 

The Record Description Entry consists of a set of data description 
entries which describe the particular record Cs) contained within a 
particular file. For a full discussion of the format and the clauses 
reguired within the Record Description entry, see "Data Description." 
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Working-Storage Section 
WORKING- S TORAGE SECTION 

The Working-Storage Section may contain descriptions of records which 
are not part of external data files but are developed and processed 
internally. 



The Working-Storage Section must begin with the section header 
WORKING- STORAGE SECTION followed by a period. The Working-Storage 
Section contains data description entries for noncontiguous items and 
record description entries, in that order. 



r 1 

1 General Format | 

^ _ ^ 

WORKING-STORAGE SECTION . 

[data item description entry] . . . 

[record description entry] . . . 

L J 



Data Item Description Entries 



Noncontiguous items in Working-Storage that bear no hierarchical 
relationship to one another need not be grouped into records, provided 
they do not need to be further subdivided. Instead, they are classified 
and defined as noncontiguous elementary items. Each of these items is 
defined in a separate data item description entry that begins with the 
special level number 77. 



Record Description Entries 



Data elements in Working-Storage that bear a definite hierarchical 
relationship to one another must be grouped into records structured by 
level number. 



LINKAGE SECTION 



' Thie Lijjk^ge Siect ion- describes data made available from another 
D|-ogife#i (s'^ IISuteprogKam Mpkage" in "Procedure Division") . 
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^Report Sections 







Jgg; iStE^CTX<y .. " 



[data iteirf descriptidtt ?ejitj:y3 




;4f *' , f J [ r eqor d d'e sc r ipti'on teiJtry 3 

- , "ill! I ! 

^'"'^ P^ta it'ew description entries land record 4esqriptiion. ioriticjjetes J^ ^ 
X^lkage Section provide netmes and .descriptions, but -storage ,wpLtl1:af| .tls^ p\ 
!pcc^ram is not reserved since the data area exists elsewhere., ftny -d^t^^lt 
'<ftesicription clause may be used to describe items in the Linka,ge S^tikijnif^ 
twith one exception: the VALOE clause may not be specified f<^r. Qbi^K ; 
than level-88 items. In the Linkage Section^ the compiler aslsumes 
^each level- 01 item starts on a double- word boundary. 

jftotje: The combined total number of level-77 and level-Ol itelms in 
Linkage Section may not exceed 255. 




REPORT SECTION 



The Report Section contains Report Description entries and report 
group description entries for e\^ery report named in the REPORT clause, 
The Report Section is discussed in "Report Writer." 
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FD Entry /BLOCK CONTAINS Clause 

FILE DESCRIPTION ENTRY ~ DETAILS OF CLAUSES 



The file description entry consists of level indicator (FD) , followed 
by file-name, followed by a series of independent clauses. The entry 
itself is terminated by a period. 



1 

General Format | 
^ 



FD file-name 

[BLOCK CONTAINS Clause] 
[RECORD CONTAINS Clause] 



LABEL RECORDS Clause 
[VALUE OF Clause] 
[DATA RECORDS Clause] 
[REPORT Clause] . 



The level indicator FD identifies the beginning of a file description 
entry and must precede the file-name . The clauses that follow the name 
of the file are optional in many cases, and their order of appearance is 
not significant. 



BLOCK CONTAINS Clause 

The BLOCK CONTAINS clause is used to specify the size of a physical 
record. 



r 1 

I Format | 

j. -I 

(CHARACTERS! 
BLOCK CONTAINS [integer-1 10] integer-2 ^ 

( RECORDS 

L J 



The BLOCK CONTAINS clause is unnecessary when a physical record 
contains one and only one complete logical record. In all other 
instances, this clause is required. 

100 Part III — Data Division 



BLOCK CONTAINS Clause 



The BLOCK CONTAINS clause need not be specified for: 



• direct files with F, U, or V mode records 




• files containing U-mode records 



For these types of files, the compiler accepts the clause and treats it 
as comments . 

The RECORDS option may be used unless one of the following situations 
exists, in which case the CHARACTERS option should be used: 

1. The physical record contains padding (areas not contained in a 
logical record) 

2. Logical records are grouped in such a manner that an inaccurate 
physical record size would be implied. Such would be the case 
where the user describes a mode V record of 100 characters, yet 
each time he writes a block of 4, he writes a 50-character record 
followed by three 100-character records. Had he used the RECORDS 
option, the compiler would have calculated the block length as 420. 

3» Logical records extend across physical records; that is, recording 
mode is S (spanned) . 

When the RECORDS option is used, the compiler assumes that the 
blocksize provides for inteqer-2 records of maximum si ze and tjifia 
provides additional space for anv require d control bytes. 



When the CHARACTERS option is used, the physical record size is 
specified in Standard Data Format, i.e., in terms of the number of bytes 
occupied internally by its characters, regardless of the number of 
characters used to represent the item within the physical record. The 
number of bytes occupied internally by a data item is included as part 
of the discussion of the USAGE clause. Integer- 1 and integer- 2 must 
include slack bytes and control b^eg contained in the physical record. 

When the CHARACTERS option is used, if only integer- 2 is shown, it 
represents the exact size of the physical record. If integer-l and 
integer-2 are both shown, they refer to the minimum and maximum size of 
the physical record, respectively. 

Inteqer-1 and inteqer-2 must be positive integers .- 

If this clause is omitted, it is assumed that records are not 
blocked. 

When neither the CHARACTERS nor the RECORDS option is specified, the 
CHARACTERS option is assumed. 




Note ; ASCII considerations for the BLOCK CONTAINS clause are given in 
Appendix E. 
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RECORD CONTAINS Clause 
RECORD CONTAINS Clause 



The RECORD CONTAINS clause is used to specify the size of a file's 
data records. 



r 1 

I Format | 

^ ^ 

1 I 

I RECORD CONTAINS [ integer- 1 TO] integer- 2 CHARACTERS | 

1 I 

L J 



Since the size of each data record is completely defined within the 
record description entry, this clause is never required. When the 
clause is specified, the following notes apply: 

1. If both integer- 1 and integer- 2 are shown, they refer to the number 
of characters in the smallest data record and the number in the 
largest data record, respectively. 

2- Integer- 2 should not be used by itself unless all the data records 
in the file have the same size. In this case, integer-2 represents 
the exact number of characters in the data record. 

3. -The size of the record must be specified in Standard Data Format, 
i.e., in terms of the number of bytes occupied internally by its 
characters, regardless of the number of characters used to 
repcfisent the ,item within the record. The number of bytes occupied 
internally by a data item is discussed in the description of the 
USAGE clause. The size of a record is determined according to the 
rules for obtaining the size of a group item. 

Normally, whether this clause is specified or omitted, the record 
lengths are determined by the compiler from the record descriptions. 
When one or more of the data item description entries within a record 
contains an OCCURS clause with the DEPENDING ON option, the compiler 
uses the maximum value of the varialSle to calculate the record length. 

However, if more than one entry in a given record description 
contains an OCCURS clause with the DEPENDING ON option, and the maximum 
values of the variables in these OCCURS clauses do not occur 
simultaneously, integer-2 , as specified by the user, may indicate a 
maximum record size other than the size calculated by the compiler from 
the maximum values of the OCCURS clause variables. In this case, the 
user-specified value of integer-2 determines the amount of storage set 
aside to contain the data record. 

For example, in a school whose total enrollment is 500, an unblocked 
file of collective attendance records is being created, each record of 
which is described as follows: 

01 ATTENDANCE-RECORD. 

02 DATE PICTURE X(6). 

02 NUMBER-ABSENT PICTURE S999 USAGE IS COMP SYNC. 

02 NUMBER- PRESENT PICTURE 3999 USAGE IS COMP SYNC. 

02 NAMES- OF- ABSENT OCCURS TO 500 TIMES DEPENDING ON 

NUMBER-ABSENT PICTURE A(20). 
02 NAMES- OF- PRESENT OCCURS TO 500 TIMES DEPENDING ON 

NUMBER- PRESENT PICTURE A(20) . 
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Recording Mode 

The programmer can save storage by taking advantage of the fact that 
NUMBER- ABSENT plus NUMBER-PRESENT will never exceed the school's total 
enrollment. Unless the programmer writes RECORD CONTAINS 10,010 
CHARACTERS in the FD entry for the file, the compiler calculates the 
record size to be almost twice as large. 



Recording Mode 



^ Mllll^pigfcOHD-IHG' -MC^Elcl'aiiise .is not .used; to -specify, the recording 
!ioi^pt:|t|e^ie}cbrd;Si,i3.^, tlie|filie,' the COBOL compiler scans each record 

description to determine it. The recording mode may be F (fixed), 

U (undefined) , V (variable) , or S (spanned) . 

Recording Mode F — All of the records in a file are the same length and 
each is wholly contained in one block. Blocks may contain more than one 
record, and there is usually a fixed number of records per block. In 
this mode, there are no record-length or block-descriptor fields. 

Recording Mode U -- The records may be either fixed or variable in 
length. However, there is only one record per block. There are no 
record-length or block- descriptor fields. 

Recording Mode V — The records may be either fixed or variable in 
length, and each must be wholly contained in one block. Blocks may 
contain more than one record. Each data record includes a record-length 
field and each block includes a block-descriptor field. These fields 
are not described in the Data Division; provision is automatically made 
for them. These fields are not available to the user. 

Recordi n g Mode S -- The records may be either fixed or variable in 
length and may be larger than a block. If a record is larger than the 
remaining space in a block, a segment of the record is written to fill 
the block. The remainder of the record is stored in the next block (or 
blocks if required) . Only complete records are made available "to the 
user. Each segment of a record in a block, even if it is the entire 
record, includes a segment-descriptor field, and each block includes a 
block-descriptor field. These fields are not described in the Data 
Division; provision is automatically made for them. These fields are 
not available to the user. 

For standard sequential files, th6 compiler determines the recording 
mode for a given file to be: 

F if all the records are defined as being the same size and the 
size is smaller than or equal to the block size 

if the records are defined as variable in size, or if the RECORD 
CONTAINS clause specifies variable size records and the longest 
record is less than or equal to the maximum block size 

S if the maximum block size is smaller than the largest record 
size 

For direct files, the compiler determines the recording mode for a 
given file to be: 

F if all the records are defined as being the same size, and the 
size is smaller than or equal to the block size 

U if the records are defined as being variable in size, or if the 
RECORD CONTAINS clause specifies variable size records and the 
longest record is less than or equal to the maximum block size 
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RECORDING :M0DB G 1 ause 

S if the maximum block size is smaller than the largest record 
size 



Files assigned to the card reader and files with indexed organization 

must be F mode (fixed format) . 

Note : ASCII considerations for compiler calculation of recording mode 
are given in Appendix E. 



RECORDING MODE Clause 



The RECORDING MODE clause is used to specify the format of the 
loaical records in the file. 




Mode may be specified as F;, V, U, or S. If this clause is; not 
specified, the recording mode is deteripined as described in "Recording 
Mode . " 

The F mode (fixed-length format) may be specified when all the 
logical records in a; file' are; the same length and each is wholly 
contained in one physical block. This implies that no OCCURS clause 
with the DEPENDING ON option is associated with an entry in any record - 
description for the file. If more than one record description entry is 
given following the FD entry, all record lengths calculated from the 
record descriptions must be equal. Files asBigned to the card, reader 
and files with indexed organization must be in F irtode. 

The V mode (variable-length format) may be specified for any . 
combination of record descriptions if each record is wholly contained 
within one physical blcK:k. A mode V record is preceded by a control 
field containing the length of the logical record. Blocks of 
variable- length records include a block-descriptor control field. V 
mode may be specified only for standard sequential files. 

^^® U mode (undefined format) may be specified for any combination of 
record descriptions if eadh record is wholly contained within one 
physical block. It is comparable to V mode with the exception that 
mode records are not blocked and have no preceding control field. U 
mode may be specified only for direct files or standard sequential 
files. 

The S mode (spanned format) may be specified for any combination of 
record descriptions. A record that cannot fit into the remaining space 
in a block appears as multiple segments, one segn^nt per block. A 
record that can be completely contained in a block; appears as a single 
segment. An S-mode segment is preceded by a control field containing 
the length of the segment and indicating whether it is the first and/or 
last or an intermediate segment. Blocks of S-mode segments include a 
block-descriptor control field. S mode may be specified for standard 
sequential or direct files. 

Note: ASCII considerations for the RECORDING MODE clause are given in ; 
Appendix E. 
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LABEL RECORDS Clause 
LABEL RECORDS Clause 

The LABEL RECORDS clause specifies whether labels are present, and if 
present, identifies the labels. 



, y 

I Format /j 
|. ^ 

I 

(RECORD IS ] (OMlTTKU 'i j 

LABEL ^ > ^ STANDARD ^ | 

( RECORDS ARE ) (data-name-1 [data-name- 2] . . .) | 



The LABEL RECORDS clause is required in every FD. 

The OMITTED option Specifies either that no explicit labels exist for 
the file or that the existing labels are nonstandard and the user does 
not want them to be processed by a label declarative (i.e., they will be 
processed as data records) . The OMITTED option must be specified for 
files assigned to unit record devices. It may be specified for files 
assigned to magnetic tape units. Use of the OMITTED option does not 
result in automatic bypassing of nonstandard labels on input. It is the 
user's responsibility either to process or to bypass nonstandard labels 
on input and create them on output. 

STANDARD specifies that labels exist for the file and the labels 
conform to system specification. The system will bypass user labels 
appearing in the file if the STANDARD option is specified. 

•;^j*''5lijeiSTiM^DARE> option roust be specified for files with indexed 
oxgattizettion . 

In the discussion that follows, all references to data-name-1 apply 
equally to data-name- 2. 

The data-n ame-1 option indicates either the presence of user labels 
in addition to standard labels, or the presence of nonstandard labels. 
Data-name-1 specifies the name of a user label record. Data-name-1 must 
appear as the subject of a record description entry associated with the 
file, and must not appear as an operand of the DATA RECORDS clause for 
the file. 

If user labels are to be processed, data-name-1 may be specified for 
direct files, or for standard sequential files with the exception of 
files assigned to unit-record devices. 

A user label is 8 characters in length. A user header label must 
have UHL in character positions 1 through 3. A user trailer label must 
have UTL in character positions 1 through 3. Both header and trailer 
labels may be grouped and each label must show the relative position (1, 
2, ...) of the label within the user label group, in character position 
4. The remaining 76 characters are formatted according to the user's 
choice. User header labels follow standard beginning file labels but 
precede the first data record; user trailer labels follow standard 
closing file labels. 

If nonstandard labels are to be processed, data-name-1 may be 
specified only for standard sequential files, with the exception of 
files assigned to unit-record devices. The length of a nonstandard 
label may not exceed 4,095 character positions. 
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VALUE OF/DATA RECORDS Clauses 

All Procedure Division references to data-name-1 , or to any item 
subordinate to data-name-1, must appear within label processing 

declaratives. 

Note: ASCII considerations for the LABEL RECORDS clause are given in 
Appendix E. 

VALUE OF Clause 

The VALUE OF clause particularizes the description of an item in the 
label records associated with a file, and serves only as documentation. 



r 1 

I Format | 

|. ^ 

('data-name-2^ 



VALUE OF data-name-1 IS 



(literal-1 ) 
(data- name- 4 ^ 
|literal-2 ) 



L J 



TO specify the required values of identifying data items in the label 
records for the file, the programmer must use the VALUE OF clause. 

However, this compiler treats the VALUE OF clause as comments, since 
for standard labels this function is performed by the system through the 
TLBL or DLBL control statement as described in the Programmer's Guides 
(as cited in "Preface") , and through the Label Declarative procedures 
for user standard labels and nonstandard labels. 



DATA RECORDS Clause 

The DATA RECORDS clause serves only as documentation, and identifies 
the records in the file by name. 



P ^ 

I Format | 

1^ ^ 

( RECORD IS 
DATA ) V data-name-1 [data-name-2] 

(RECORDS are' 

L J 



The presence of more than one data-name indicates that the file 
contains more than one type of data record. That is, two or more record 
descriptions for a given file occupy the same storage area. These 
records need not have the same description. The order in which the 
data-names are listed is not significant. 
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REPORT Clause 

Data-name-1 , data-name- 2 , etc. , are the names of data records and 
each must be preceded in its record description entry by the level 
number 01. 

This clause is never required. 



REPORT Clause 

The REPORT clause is used in conjunction with the Report Writer 
feature. A complete description of the REPORT clause can be found in 
"Report Writer." 
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Data Description — General Formats 



DATA DESCRIPTION 



In COBOL, the terms used in connection with data description are: 

Data_ Description Entry — the clause, or clauses, that specify the 
characteristics of any particular noncontiguous data item, or of any 
data item that is a portion of a record. The data description entry 
consists of a level number, a data-name (or condition-name) , plus any 
associated data description clauses. 

Data Item Description Entry — a data description entry that defines 
a noncontiguous data item. It consists of a level number (77), a 
data-name plus any associated data description entries. Data item 
description entries are valid in the Working-Storage Section^ 



Reco rd De s cription Entry — the term used in connection with a 
record. rt consists of a hierarchy of data description entries. Record 
description entries are valid in the File, Working- Storage j^^^^^^^^^J 
Sections. 

Note: For the 3881 optical mark reader, the first 6 bytes of the record 
description entry should be described as a FILLER item; these 6 bytes 
are reserved for control information and are not available to the COBOL 
program. 



The maximum length for a data description entry is 32,767 bytes, 
except for a fixed-length Working- Storage WiHIM^ Section group item, 
which may be as long as 131,071 bytes. 



General Format 1 



level number 



{data-name 
FILLER 



(REDEFINES Clause] 
[BLANK WHEN ZERO Clause] 
[JUSTIFIED Clause] 
[OCCURS Clause] 
[PICTURE Clause] 



[SYNCHRONIZED Clause] 
[USAGE Clause] 
[VALUE Clause] . 

L J 

■r 1 

I General Format 2 | 

Y _ ^ 

I I 

I 66 data-name-1 RENAMES Clause. | 

I I 

L J 
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Data Description -- General Forrndts 

r T 

I General Format 3 | 

|. .^ 

I I 

I 88 condition-name VMiUE Clause. | 

I I 

L J 



Genera l Format 1 is used for record description entries in the File, 
Working-Storage>y;-|t|i|3:i|t|^3^^ Sections and for iata item description 
entries in the Working-Storage ancEi Idjitoage Sections. The following 
rules apply: 

1. Level number may be any number from 1 through 49 for record 
description entries, or 77 for data item description entries. 

2. The clauses may be written in any order, with one exception: the 
REDEFINES clause, when used, must immediately follow the data-name. 

3. The PICTURE clause must be specified for every elementary item, 
with the exception of index data items ,ail^,Xiitiernal, fi;ic^tdi%-poiiktt 
||^^^~. Index data items are described in "Table Handling. " 

4. Each entry must be terminated by a period. 

5. Semicolons or commas may be used as separators between clauses. 

General Format 2 is used for the purpose of regrouping data items. 
The following rules apply: 

1. A level- 6 6 entry cannot rename another level- 6 6 entry, nor can it 
rename a level-77, level-88, or level-01 entry. 

2. All level-66 entries associated with a given logical record must 
immediately follow the last data description entry in the record. 

3. The entry must be terminated by a period. 

The RENAMES clause is discussed in detail later in this chapter. 

General Format 3 is used to describe entries that specify 
condition- names to be associated with particular values of a conditional 
variable. A condition- name is a name assigned by the user to a specific 
value that a data item may assume during object program execution. The 
following rules apply: 

1. The condition- name entries for a particular conditional variable 
must immediately follow the conditional variable. 

2. A condition-name can be associated with any elementary data 
description entry except another condition-name, or an index data 
item. 

3. A condition-name can be associated with a group item data 
description entry. In this case: 

• The condition value must be specified as a nonnumeric literal or 
figurative constant. 

• The size of the condition value must not exceed the sum of the 
sizes specified by the pictures in all the elementary items 
within the group. 
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Data Description — General Formats 

• No element within the group may contain a JUSTIFIED or 
SYNCHRONIZED clause. 

• No USAGE Other than USAGE IS DISPLAY may be specified within the 
group. 

4- The specification of a condition-name at the group level does not 
restrict the specification of condition-names at levels subordinate 
to that group. 

5. The relation test implied by the definition of a condition-name at 
the group level is performed in accordance with the rules for 
comparison of nonnumeric operands, regardless of the nature of 
elementary items within the group. 

6. Each entry must be terminated by a period. 

Examples of both group and elementary condition-name entries are 
given in the description of the VALUE clause. 
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Data-name/FILLER Clause 
DATA DESCRIPTION ENTRY — DETAILS OF CLAUSES 



The data description entry consists of a level number, followed by a 
data-name, followed by a series of independent clauses. The clauses may 
be written in any order, with one exception: the REDEFINES clause, when 
used, must immediately follow the data-name. The entry must be 
terminated by a period. 



Data-name or FILLER Claus e 

A data-name specifies the name of the data being described. The word 
FILLER specifies an elementary j^g^^^pUp item of the logical record that 
is never referred to and therefore need not be named. 



r 1 

I Format | 

j. ^ 

("data-name] 

level number < > 

(filler ) 

L J 



In the Working-Storage, 3f|^^^^ or File Sections, a data- name or the 
key word FILLER must be the first word following the level number in 
each data description entry. 



A data - name is a name assigned by the user to identify a data item 
used in a program. A data-name refers to a kind of data, not to a 
particular value; the item referred to may assiame a number of different 
values during the course of a program. 



The key word FILLER is used to specify an elementary 
item that is never referred to in the program, and therefore need not be 
named. Under no circumstances may a FILLER item be referred to 
directly. In a iflOVE, ADD, or SUBTRACT statement with the CORRESPONDING 
option, FILLER items are ignored. 

Note: Level-77 and level-01 entries in the Working-Storage P^^^lfliPI^ 
Section must be given unique data-names, since neither can be qualified. 
Subordinate data-names, if they can be qualified, need not be unique. 
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REDEFINES Clause 
REDEFILSiES Clause 



The REDEFINES clause allows the same computer storage area to contain 
different data items or provides an alternative grouping or description 
of the same data. That is, the REBEFIISiES clause specifies the 
redefinition of a storage area, not of the data items occupying the 
area. 



r 1 

I Format | 

|. ^ 

I I 

I level number data-name-1 REDEFINES data-name- 2 | 

I 1 

L J 



The level numbers of data-name-1 and data-name-2 must be identical, 
but must not be 66 or 88. Data-name-2 is the name associated with the 
previous data description entry. Data-name-1 is an alternate name for 
the same area. When written, the REDEFINES clause must be the first 
clause following data-name-1. 

The REDEFINES clause must not be used in level-01 entries in the File 
Section. Implicit redefinition is provided when more than one level-01 
entry follows a file description entry. 

Redefinition starts at data-name-2 and ends when a level number less 
than or equal to that of data-name-2 is encountered. Between the data 
descriptions of data-name-2 and data-name-1 , there may be no entries 
having lower level numbers (numerically) than the level number of 
data-name-2 and data-name-1. Example: 

02 A. 

03 A-1 PICTURE X. 

03 A- 2 PICTURE XXX. 

03 A- 3 PICTURE 99. 
02 B REDEFINES A PICTURE X(6). 

In this case, B is data-name-1, and A is data-name-2. When E redefines 
A, the redefinition includes all of the items suoordinate to A (A-1, 
A-2, and A-3) . 

The data description entry for data-name-2 cannot contain an OCCURS 
clause, nor can data-name-2 be subordinate to an entry which contains an 
OCCURS clause. An item subordinate to data-name-2 may contain an OCCURS 
clause without the DEPENDING ON option. Data-name-1 or any items 
subordinate to data-name-1 may contain an OCCURS clause without the 
DEPENDING ON option. Neither data-name-2 nor data-name-1 nor any of 
their subordinate items may contain an OCCURS clause with the DEPENDING 
ON option. 

When data-name-1 has a level number other than 01, it must specify a 
storage area of the same size as data-name-2. 




If data-name-1 contains an OCCURS clause, its size is computed by 
multiplying the length of one occurrence by the number of occurrences. 

Note : In the discussion that follows, the term "computational" refers 

to COMPUTATIONAL ,;^;^£:o|3^^f|§||l!i-d7\5tn^;:i(X^ items . 
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REDEFINES Clause 



When the SYNCHRONIZED clause is specified for an item that also 
contains a REDEFINES clause, the data item that is redefined must have 
the proper boundary alignment for the data item that REDEFINES it. For 
example, if the programmer writes: 



02 
02 



REDEFINES A 



PICTURE X(4) . 

PICTURE S9(9) C0I4P SYNC. 



he must ensure that A begins on a fullword boundary. 

When the SYNCHRONIZED clause is specified for a computational item 
that is subordinate to an item that contains a REDEFINES clause, the 
computational item must not require the addition of slack bytes. 

Except for condition- name entries, the entries giving the new 
description of the storage area must not contain any VALUE clauses. 

The entries giving the new description of the storage area must 
follow the entries describing the area being redefined, without 
intervening entries that define new storage areas. Multiple 
redefinitions of the same storage area should all use the data-name of 
the entry that originally defined the area. Bc^^^v^r/'ltJilH '"<^^^ 
'acc^rfc as '-vrd-l'lS ''*i^^ '<Jata-iniainte '-qf > the 'pr;€de^ijig, eWt:ry iidlfen 'Hiiiltiipite ,' „ , 
r^edfefiittitioa ,,is' use^. For example, both of the following are valid uses 
of the REDEFINES clause: 



02 A PICTURE 9999. 

02 B REDEFINES A PICTURE 9V999, 
02 C REDEFINES A PICTURE 99V99. 



02 . ^ u ' it. ' < .P, 

;02 ;<?■ iREEferiKES -B ;B3X?rORE ■g9V99.* 




Data items within an area can be redefined without their lengths 
being changed; the following statements result in the storage layout 
shown in Figure 12. 

02 NAME- 2. 

03 SALARY PICTURE XXX. 

03 SO-SEC-NO PICTURE X(9). 

03 MONTH PICTURE XX. 
02 NAME-1 REDEFINES NAME- 2. 

03 WAGE PICTURE XXX. 

03 MAN-NO PICTURE X(9). 

03 YEAR PICTURE XX. 



NAME- 2 



NAME-1 



SALARY 



SO-SEC-NO 



MONTH 



I I 



WAGE 



MAN- NO 



YEAR 



r T T T T T T T T T T T T T T 

I I I I I I I I I I I i i I I 

II II 

I I I I I I I I I I 1 I I I I 
L X X X X X X X X X X X X X J 



Figure 12. Areas REDEFINED without Changes in Length 
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REDEFINES Clause 

Data items can also be rearranged within an area; the following 
statements result in the storage layout shown in Figure 13. 

02 NAME- 2. 

03 SALARY PICTURE XXX. 

03 SO-SEC-NO PICTURE X(9). 

03 MONTH PICTURE XX. 
02 NAME-1 REDEFINES NAME- 2. 

03 MAN-NO PICTURE X{6). 

03 WAGE PICTURE 999V999. 

03 YEAR PICTURE XX. 



SALARY 



SO-SEC-NO 



MONTH 



NAME-2 



-T T T T T T T T—T T T T T 1 

I I I I I i I I I I I I I I 

I I i 

I I I I I I I I I I I I I I 
-i X X X X X X X X X X X X J 



MAN- NO 



WAGE 



YEAR 



r T T T T T T T T T T T T T 1 

i I I i I I I I i I I I I I I 
NAME-1 I I II 

I I I i I I I I I I I I I I I 
L X X X X X X X X X X X X X J 

Figure 13. Areas REDEFINED and Rearranged 



When an area is redefined, all descriptions of the area remain in 
effect. Thus, if B and C are two separate items that share the same 
storage area due to redefinition, the procedure statements MOVE X TO B 
or MOVE Y TO C could be executed at any point in the program. In the 
first case, B would assume the value of X and take the form specified by 
the description of B. In the second case, the same physical area would 
receive Y according to the description of C. It should be noted, how- 
ever, that if both of the foregoing statements are executed successively 
in the order specified, the value Y will overlay the value X. However, 
redefinition in itself does not cause any data to be erased and does not 
supersede a previous description. 

The usage of data items within an area can be redefined. 

Altering the USAGE of an area through redefinition does not cause any 
change in existing data. Consider the example: 

02 B PICTURE 99 USAGE DISPLAY VALUE IS 8. 

02 C REDEFINES B PICTURE S99 USAGE COMPUTATIONAL. 
02 A PICTURE S9999 USAGE COMPUTATIONAL. 

Assuming that B is on a halfword boundary, the bit configuration of 
the value 8 is 1111 0000 1111 1000, because B is a DISPLAY item. 
Redefining B does not change its appearance in storage. Therefore, a 
great difference results from the two statements ADD B TO A and ADD C TO 
A. In the former case, the value 8 is added to A, because B is a 
display item. In the latter case, the value -3,848 is added to A, 
because c is a binary item (USAGE IS COMPUTATIONAL) , and the bit 
configuration appears as a negative number. 
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BLANK WHEN ZERO Clause 

Moving a data item to a second data item that redefines the first one 
(for example, MOVE B TO C when C redefines B) , may produce results that 
are not those expected by the programmer. The same is true of the 
reverse (MOVE B TO C when B redefines C) . 

A. REDEFINES clause may be specified for an item within the scope of 
an area being redefined, that is, an item subordinate to a redefined 
item. The following example would thus be a valid use of the REDEFINES 
clause: 

2 REGULAR- EMPLOYEE . 

03 LOCATION PICTURE A (8). 

03 STATUS PICTURE X(4) . 

03 SEMI-MONTHLY-PAY PICTURE 9999V99. 

03 WEEKLY-PAY REDEFINES SEMI-MONTHLY-PAY PICTURE 999V999. 
02 TEMPORARY- EMPLOYEE REDEFINES REGULAR- EMPLOYEE. 

03 LOCATION PICTURE A(8). 

03 FILLER PICTURE X(6). 

03 HOURLY-PAY PICTURE 99V99. 



REDEFINES clauses may also be specified for items subordinate to 
items containing REDEFINES clauses. For example: 

2 REGULAR- EMPLOYEE . 

03 LOCATION PICTURE A(8) . 

03 STATUS PICTURE X(4). 

03 SEMI-MONTHLY-PAY PICTURE 999V999, 
02 TEMPORARY- EMPLOYEE REDEFINES REGULAR- EMPLOYEE. 

03 LOCATION PICTURE A(8) . 

03 FILLER PICTURE X(6) . 

03 HOURLY-PAY PICTURE 99V99. 

03 CODE-H REDEFINES HOURLY-PAY PICTURE 9999. 



BLANK WHEN ZERO Clause 



This clause specifies that an item is to be set to blanks whenever 
its value is zero. 



r 1 

I Format j 

|. ^ 

I I 

I BLANK WHEN ZERO | 

I I 

L J 



When the BLANK WHEN ZERO clause is used, the item will contain only 
blanks if the value of the item is zero. 

The BLANK WHEN ZERO clause may be specified only at the elementary 
level for numeric edited or numeric items. When this clause is used for 
an item whose PICTURE is numeric, the category of the item is considered 
to be numeric edited. 

This clause may not be specified for level-66 and level-88 data 
items - 
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JUSTIFIED Clause 
JUSTIFIED Clause 



The JUSTIFIED clause is used to override normal positioning of data 
within a receiving alphabetic or alpnanumeric data item. 



r~- 1 

I Format | 

|. ^ 

(JUSTIFIED) 

< > RIGHT 

(JUST ) 
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Normally, the rule for positioning data within a receiving 
alphanumeric or alphabetic data item is: 

• The data is aligned in tne receiving field, beginning at the 
leftmost character position within the receiving field. Unused 
character positions to the right are filled with spaces. If 
truncation occurs, it will be at the right. 

The JUSTIFIED clause affects the positioning of data in the receiving 
field as follows: 

• When the receiving data item is described with the JUSTIFIED clause 
and the data item sent is larger than the receiving data item, the 
leftmost characters are truncated. 

• When the receiving data item is described with the JUSTIFIED clause 
and is larger than the data item sent, the data is aligned at the 
rightmost character position in the data item. Unused character 
positions to the left are filled with spaces. 

The JUSTIFIED clause may only be specified for elementary items . 

This clause must not be specified for level-66 or level-88 data 
items . 



OCCURS Clause 

The OCCURS clause is used to define tables and other homogeneous sets 
of data, whose elements can be referred to by subscripting or indexing. 
The OCCURS clause is described in "Table Handling." 



PICTURE Clause 

The PICTURE clause describes the general characteristics and editing 
requirements of an elementary item. 
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PICTURE Clause 



I Format | 

j. ^ 



(" PICTURE 

( pic 



IS character string 



L J 



The PICTURE clause can be used only at the elementary level. 

The character string consists of certain allowable combinations of 
cnaracters in the COBOL character set. The maximum number of characters 
allowed in the character string is 30. The allowable combinations 
determine the category of the elementary item. 

There are five categories of data that can be described with a 
PICTURE clause. They are: 

1 . Alphabetic 

2. Numeric 

3 . Alphanumeric 

U. Alphanumeric edited 
5. Numeric edited 



The Three Classes of Data 



The five categories of data items are grouped into three classes: 
alphabetic, niimeric, and alphanumeric. For alphabetic and numeric, the 
class and the category are synonymous. The alphanumeric class includes 
the categories of alphanumeric (without editing) , alphaniimeric edited, 
and numeric edited. 

Every elementary item belongs to one of the three classes and to one 
of the five categories. The class of a group item is treated at object 
time as alphanumeric regardless of the class of the elementary items 
subordinate to that group item. 

Figure 14 shows the relationship of the class and category for 
elementary and group data items. 



Level of Item 



Class 



-+- 



Category 



Elementary 



I Alphabetic 

\- 

I Numeric 

\- 



I Alphabetic 
4 

I Numeric 



j Alphanumeric 



Alphanumeric 
Alphanumeric Edited 
Numeric Edited 



Group 



Alphanumeric 



I Alphabetic 

I Numeric 

I Alphanumeric 

I Alphanumeric Edited 

I Numeric Edited 

L X J. 

Figure 14. class and Category of Elementary and Group Data Items 
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PICTURE Clause 



Character String and Item Size 



In the processing of data through COBOL statements, the size of an 
elementary item is determined through the number of character positions 
specified in its PICTURE character string. In core storage, however, 
the size is determined by the actual number of bytes the item occupies, 
as determined by its PICTURE character string, and also by its USJlGE 
(see "USAGE Clause"). 

Normally, when an arithmetic item is moved from a longer field into a 
shorter one, this compiler will truncate the data to the number of 
characters represented in the PICTURE character string of the shorter 
item. 

For example, if a sending field with PICTURE S99999, and containing 
the value +12345, is moved to a COiNIPUTATIONAL receiving field with 
PICTURE S99, the data is truncated to +45. 




Repetition of Symbols 



An integer which is enclosed in parentheses following one of the 
symbols 



indicates the number of consecutive occurrences of the symbol. For 
example, if the programmer writes 

A(40) 

the four characters (40) indicate forty consecutive appearances of the 
symbol A. The number within parentheses may not exceed 32,767. 

Note ; The following symbols may appear only once in a given PICTURE 
clause: 



V 



CR 



DB 



Symbols Used in the PICTURE Clause 



The functions of the symbols used to describe an elementary item are: 

Each A in the character string represents a character position that 
can contain only a letter of the alphabet or a space. 

Each B in the character string represents a character position into 
which the space character will be inserted. 





' * i^g&||p^|fc|^||ti^ ■■iji.TM:.:^' 'OCCupiBS;; m^ iyyt^e o£. ^storage;. 







Ttte 
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PICTURE Clause 

P The P indicates an assumed decimal scaling position and is used to 
specify the location of an assumed decimal point when the point is 
not within the number that appears in the data item- The scaling 
position character P is not counted in the size of the data item- 
Scaling position characters are counted in determining the maximum 
number of digit positions (18) in numeric edited items or in items 
that appear as operands in arithmetic statements. 

The scaling position character P may appear only to the left or 
right of the other characters in the string as a continuous string 
of P's within a PICTURE description. The sign character S and the 
assumed decimal point V are the only characters which may appear to 
the left of a leftmost string of P's. Since the scaling position 
character P implies an assumed decimal point (to the left of the 
P's if the P's are leftmost PICTURE characters and to the right of 
the P's if the P's are rightmost PICTURE characters), the assumed 
decimal point symbol V is redundant as either the leftmost or 
rightmost character within such a PICTURE description. 

S The symbol S is used in a PICTURE character string to indicate the 
presence (but not the representation nor, necessarily, the 
position) of an operational sign, and must be written as the 
leftmost character in the PICTURE string. An operational sign 
indicates whether the value of an item involved in an operation is 
positive or negative. The symbol S is not counted in determining 
the size of the elementary item.f.'^iriteB^ am aiss<!:teiabed SIGN clauses 

V The V is used in a character string to indicate the location of the 
assumed decimal point and may appear only once in a character 
string. The V does not represent a character position and, 
therefore, is not counted in the size of the elementary item. When 
the assumed decimal point is to the right of the rightmost symbol 
in the string, the V is redundant. 

X Each X in the character string represents a character position 
which may contain any allowable character from the EBCDIC set. 

Z Each Z in the character string represents a leading numeric 

character position; when that position contains a zero, the zero is 
replaced by a space character. Each Z is counted in the size of 
the item. 

9 Each 9 in the character string represents a character position that 
contains a numeral and is counted in the size of the item. 

Each zero in the character string represents a character position 
into which the numeral zero will be inserted. The is counted in 
the size of the item. 

, Each comma in the character string represents a character position 
into which a comma will be inserted. This character is counted in 
the size of the item- The comma insertion character cannot be the 
last character in the PICTURE character string. 

When a period appears in the character string, it is an editing 
symbol that represents the decimal point for alignment purposes. 
In addition, it represents a character position into which a period 
will be inserted. This character is counted in the size of the 
item. The period insertion character cannot be the last character 
in the PICTURE character string. 

Note ; For a given program, the functions of the period and comma 
are exchanged if the clause DECIMAL-POINT IS COMMA is stated in the 
SPECIAL-NAMES paragraph. In this exchange, the rules for the 
period apply to the comma and the rules for the comma apply to the 
period wherever they appear in a PICTURE clause. 
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PICTURE Clause 



These symbols are used as editing sigh control symbols. When 
used, each represents the character position into which the 
editing sign control symbol will be placed. The symbols are 
mutually exclusive in one character string. Each character used in 
the symbol is counted in determining the size of the data item. 

Each asterisk (check protect symbol) in the character string 
represents a leading numeric character position into which an 
asterisk will be placed when that position contains a zero. Each * 
is counted in the size of the item. 



$ The currency symbol in the character string represents a character 
position into which a currency symbol is to be placed. The 
currency symbol in a character string is represented either by the 
symbol $ or by the single character specified in the CURRENCY SIGN 
clause in the SPECIAL- NAMES paragraph of the Environment Division. 
The currency symbol is counted in the size of the item. 

Figure 15 shows the order of precedence of the symbols used in the 
PICTURE clause. 



The Five Categories of Data 



The following is a detailed description of the allowable combinations 
of characters for each category of data. 

ALPHABETIC ITEMS ; An alphabetic item is one whose PICTURE character 
string contains only the symbol A. Its contents, when represented in 
Standard Data Format, must be any combination of the 26 letters of the 
Roman alphabet and the space from the COBOL character set. Each 
alphabetic character is stored in a separate byte. 

If a VALUE clause is specified for an alphabetic item, the literal 
must be nonnumeric. 

ALPHANUMERIC ITEMS : An alphanumeric item is one whose PICTURE character 
string is restricted to combinations of the symbols A, X, and 9. The 
item is treated as if the character string contained all X's. Its 
contents, when represented in Standard Data Format, are allowable 
characters from the EBCDIC set. 

A PICTURE character string which contains all A's or all 9's does not 
define an alphanumeric item. 

If a VALUE clause is specified for an alphanumeric item, the literal 
must be nonnumeric. 
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^cs is the abbreviation for the currency symbol. ,,,.,,. , , I 

•s©«i itli^.de^cEP^pticwi fd, ^tsrnal iflAating-soint Xtemsi If or l^e 'sdiic^ific' doiablriattrdn 'dt ' j 
syiiibols that ijs valxd. ' 



|. 4 

At least one of the symbols A, X, Z, 9, or *, or at least two of the symbols +, -, or | 
OS must be present in a PICTURE string. j 

I 
An X at an intersection indicates that the symbol (s) at the top of the column may, in a| 
given character-string, appear anywhere to the left of the symbol (s) at the left of thej 
row. j 

I 
Non-floating insertion symbcls + and -, floating insertion symbols Z, *, +, -, and cs, | 
and other symbol P appear twice in the above PICTURE character precedence table. The j 
leftmost column and uppermost row for each symbol represents its use to the left of thej 
decimal point position. The second appearance of the symbol in the table represents j 
its use to the right of the decimal point position. | 

Braces ({}) indicate items that are mutually exclusive I 



Figure 15. Precedence of Symbols Used in the PICTURE Clause 
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PICTURE Clause 

NUMERIC ITEMS: There are two types of numeric items: fixed-point items 
and floating-point items. 

Fixed-P oi nt Numeric Items : There are three types of fixed-point numeric 
items: external decimal, binary, «ite-"iKt€a:kal'*deca:B^lL', See the 
discussion of the USAGE clause for details concerning each. 

The PICTURE of a fixed-point numeric item may contain a valid 
combination of tne following symbols: 



Examples of fixed-point numeric items : 

PICTURE Valid Range of Values 

9999 through 9999 

S99 -99 through +99 

S999V9 -999.9 through +999.9 

PPP999 through .000999 

S999PPP -1000 through -999000 and 

+1000 through +999000 or zero 

The maximum, size of a fixed- point numeric item is 18 digits. 

The contents of a fixed-point numeric item, when represented in 
Standard Data Format, must be a combination of the Arabic numerals 
through 9; the item may contain an operational sign. If the PICTURE 
contains an S, the contents of the item are treated as positive or 
negative values, depending on the operational sign; if the PICTURE does 
not contain an S, the contents of the item are treated as absolute 
values. 

Note: ASCII considerations for the PICTURE clause are given in 
Appendix E. 

Floating-Point Numer ic Items: These items define data whose potential , " 
range of value is too gr^at for fixed-point presentation. The ina,gnitii,c3||| 
?df the ihumber represented! by a floating-point item must be greater thiaifi p 
5.4 x 10-'^ but must not exceed .72 x 10''«. 

. ; There are two types ol6 floating-point items: internal f loSfcit^g-poi: 
[smd. ejxternal float ing-poi|nt-, | See the .discussion of the U^M^J^ ;c|JjafUKS|^ ^j 

■qetaiiis 'concerning each.^ ■•''.'/' " i ' " . ' '«t. 

■'''■■'■ ' i . f Tsi^' 

. , . No :PICTURE ..clause may be alssociated with -an internal f'lo^t,i,l^-'pc3|i;|:^J;^i 
i;tem.' ' '^ '''.'. . , ■■ : ■ i ■ . - < - W' 

'. ■ ■ ■.■,■;.■.■' ; ■' ■ ■ ■.'..■■■■ . ; , " -j*^'''^ 

If a VALUE clauses is specified for an elementary ni«neric iteno, tjns ',[ 
Ijjteral must ■ be ^numeric. ^ /If p. VALUE clause: is specified' for' a fgttMlp^ *|jf- 
Item consisting of elementary^ numeric items, the group is cojipsiJcieirep: i iJi 
:§i.ljphani:ptteric, and' the literal must therefore, be nonnuifteric- - i '*^v.-t\$lL 



' An external f loating-rt>int; item has a.. PICTURE chi^ractei; ^tir-ia0 ii»c*;lfe 

following' form: .I,,.':" ■ i-"'1'l iU;.? ■■■■,■- I t -i* •- '^ !!;-"•-•• 



l-V 



mamtissa^/..<( . !,> i^jxppnent I vl 

iHafere; each "eieiaentf of f:ii|g!|!s!tiEin?g is composed according to the followlna^ 

jcrpiles'i r- ■•-« ■■■■ >■ if ^i '^' ':■''■" I ■^■ 
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. r,,, 



I ^ i , i- 



• ■ " incli'dateis 'tlhat: ct^' space ctharacti^rl ,iin ittie 'Satti^ ?rl€^rfe^en(t|s| 
'1'': valiiieS sand ^tiiat pi 'minus istign repr<q'sent|S8 ineigioitiive jx^diiiesl'.. 
-s ;; , ^ ' f , . . ' ' /[■''' •> ' , I ': ' ' ' i ] 

"'The plus! sign, tiie space character, and ithe 'inii'nus ssign ^' 
,';* rbyte df storage,- and are included in tt^e printout, ] ' 



laa^t^ssa ' The mantissa immediately folj,ows the first sigri !Ci|3324c!tS3i 
is represented xising the following three symbols: > \ . -ni . , 

I '■- ■ 

9 Each 9 in tne mantissa character string represents a digiit^ pos 
into which a numeric character will be placed. From ' one ;to siij 
9*s may be present in the string. Each digit position occupi(^ 
byte of storage. 5 

indicates an actual decimal point. It occupies a byte of Istdrid^e. 




V indicates an assumed decimal point. It does not take up any j i • | 

storage . • • - ■ -\ 

.• ' ' - I '■ »{■■ 

One actual or assumed decimal point must be present in the mantis^< 
, as a leading, embedded or trailing symbol. : 

. ,' . i 

E* ' indicates the exponent, and immediately follows the mantissa. ; it j 
occupies one byte of storage. 

exponent The exponent immediately follows the second sign character. , 
It is represented by two consecutive 9 * s . Each occupies a byte of | 
storage. 

External data must conform to the representation specified in the 
PICTURE clause. 



Examples of external floating-point items: 



PICTURE 

-9V99E-99 
+999.99E+99 
-V9(6)E+99 
+.9(10)E-99 



Format of External Data 

540E-79 
+123.^5E-m 

565656E+45 
+.7200000000E 76 



Value Expressed 

+5.40 X 10 ''^ 
+123.45 X 10 -'* 
+ .565656 X 10'*5 
+.72 X 10^6 



(Note that any of the above PICTURE representations can express tne*** 
full range of possible values.) ^ 

No VALUE clause may be associated with an external floating-point m 
item. W 



Data Description Entry — Details of Clauses 12 3 



PICTURE Clause 

ALPHANUMERIC EDITED ITEMS : An alphanumeric edited item is one whose 
PICTURE character string is restricted to certain combinations of the 
following symbols: 



To qualify as an alphanumeric edited item, one of the following 
conditions must be true: 

1. The character string must contain at least one B and at least one 
X. 

2. The character string must contain at least one and at least one 
X. 

3. The character string must contain at least one (zero) and at 
least one A. Its contents, when represented in Standard Data 
Format, are allowable characters chosen from the EBCDIC set. 



USAGE IS DISPLAY is used in conjunction with alphanumeric edited 
items . 

If a VALUE clause is specified for an alphanumeric edited item, the 
literal must be nonnumeric. The literal is treated exactly as 
specified; no editing is performed. 

Editing Rules : Alphanumeric edited items are subject to only one type 
of editing: simple insertion using the symbols and B. 

Examples of alphanumeric edited items: 

PICTURE Value of Data Edited Result 

000X(12) ALPHANUMEROl OOOALPHANUMEROl 

BBBX(12) ALPHANUMEROl ALPHANUMEROl 

000A(12) ALPHABETIC OOOALPHABETIC 

X(5)BX{7) ALPHANUMERIC ALPHA NUMERIC 



NUMERIC, EDITED ITEMS : A numeric edited item is one whose PICTURE 
character string is restricted to certain combinations of the symbols: 

BPVZ09, .* + -CRDB$ 

The allowable combinations are determined from the order of 
precedence of symbols and editing rules. 

The maximum number of digit positions that may be represented in the 
character string is 18. 

The contents of the character positions that represent a digit, in 
Standard Data Format, must be one of the numerals. 

USAGE IS DISPLAY is used in conjunction with numeric edited items. 

If a VALUE clause is specified for a numeric edited item, the literal 
must be nonnumeric. The literal is treated exactly as specified; no 
editing is performed. 

The maximum length of a numeric edited item is 127 characters. 
Editing Rules : All types of editing are valid for numeric edited items. 
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PICTURE Clause 
Types of Editing 

There are two general methods of performing editing in the PICTURE 
clause: by insertion or by suppression and replacement. 

There are four types of insertion editing: 

1. simple insertion 

2. special insertion 

3. fixed insertion 

4. floating insertion 



There are two types of suppression and replacement editing: 

1. zero suppression and replacement with spaces 

2. zero suppression and replacement with asterisks 



Insertion Editing 

Simple insertion editing is performed using the following insertion 
characters : 

. (comma) B (space) (zero) 

The insertion characters are counted in the size of the item and 
represent the position in the item into which the character will be 
inserted. 

Examples of simple insertion editing: 

PICTURE Value of Data Edited Result 

99,999 12345 12,345 

9,999,000 12345 2,345,000 

99B999B000 1234 01 234 000 

99B999B000 12345 12 345 000 

99BBB999 123456 23 456 

Special insertion editing is performed using the period ( . ) as the 
insertion character. The result of special insertion editing is the 
appearance of the insertion character in the item in the same position 
as shown in the character string. 

In addition to being an insertion character, the period represents a 
decimal point for alignment purposes. The insertion character used for 
the actual decimal point is counted in the size of the item. 

The use of both the assumed decimal point, represented by the symbol 
V, and the actual decimal point, represented by the period insertion 
character, in one PICTURE character string is not allowed. 

Examples of special insertion editing: 

PICTURE Value of Data Edited Result 

001.23 
012-34 
123.45 
234.50 
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999.99 


1.234 


999.99 


12.34 


999.99 


123.45 


999.99 


1234.5 



PICTURE Clause 



Fixed insertion editing is performed by using the following insertion 
characters : 



currency symbol $ 

editing sign control symbols + 



- OR DB 



Only one currency symbol and only one of the editing sign control 
symbols can be used in a given PICTURE character string. 

Fixed insertion editing results in the insertion character occupying 
the same character position in the edited item as it occupied in the 
PICTURE character string. 

$ The currency symbol must be the leftmost character position to 
be counted in the size of the item, unless it is preceded by 
either a + or a - symbol. 

+ or - When either symbol is used, it must represent the leftmost or 
rightmost character position to be counted in the size of the 
item. 

CR or DB "When either symbol is used, it represents two character 
positions in determining the size of the item and must 
represent the rightmost character positions that are counted 
in the size of the item. 



Editing sign control symbols produce results depending upon the value 
of the data item as shown in Figure 16. 



Result 



Editing Symbol in PICTURE 
Character String 



Data Item 
Positive or Zero 



Data Item 
Negative 



CR 
DB 



space 
2 spaces 
2 spaces 



CR 
DB 



Figure 16. Editing Sign Control Symbols and their Results 



Examples of fixed insertion editing: 



PICTURE 
999.99+ 
+9999.99 
9999.99- 
$999.99 
-$999.99 
$9999. 99CR 
$9999. 99DB 



V alue of Data 

+6555.556 

-5555.555 

+1234.56 

-123.45 

-123.456 

+123.45 

-123.45 



Edited Result 
555.55+ 
-5555.55 
1234.56 
$123.45 
-$123.45 
$0123.45 
$0123. 45DB 
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PICTURE Clause 

Floating insertion editing is indicated in a PICTURE character string 
by using a string of at least two of the allowable insertion characters 
$ + or - to represent the leftmost numeric character positions into 
which the insertion characters can be floated. 

The currency symbol ($) and the editing sign symbols (+ or -) are 
mutually exclusive as floating insertion characters in a given PICTURE 
character string. 

Any of the simple insertion characters (, B 0) embedded in the string 
of floating insertion characters, or to the immediate right of this 
string, are part of the floating string. 

In a PICTURE character string, there are only two ways of 
representing floating insertion editing: 

1. hny or all leading numeric character positions to the left of the 
decimal point are represented by the insertion character. 

2. A.11 of the numeric character positions in the PICTURE character 
string are represented by the insertion character. 



The result of floating insertion editing depends upon the 
representation in the PICTURE character string: 

1. If the insertion characters are only to the left of the decimal 
point, a single insertion character is placed into the character 
position immediately preceding the first nonzero digit in the data 
represented by the insertion symbol string or the decimal point, 
whichever is farther to the left of the PICTURE character string. 

2. If all numeric character positions in the PICTURE character string 
are represented by the insertion character, the result depends upon 
the value of the data. If the value is zero, the entire data item 
will contain spaces. If the value is not zero, the result is the 
same as when the insertion characters are only to the left of the 
decimal point. 



To avoid truncation when using floating insertion editing, the 
programmer must specify the minimum size of the PICTURE character string 
for the receiving data item to be: 

1. The number of characters in the sending item, plus 

2. The number of insertion characters (other than floating insertion 
characters) being edited into the receiving data item, plus 

3. One character for the floating insertion character. 

Examples of floating insertion editing: 

PICTURE Value of Data E dited Result 

$$$$.99 .123 $.12 

$$$$9.99 .12 $0.12 

$$,$$$,999.99 -1234.56 $1,234.56 

++,+++,999.99 -123456.789 -123,456.78 

$$,$$$, $$$.99CR -1234567 $1, 234, 567. OOCR 

$$,$$$,$$$. 99DB +1234567 $1,234,567.00 
++,+++,+++.+++ 0000.00 
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PICTURE Clause 

Zero Suppression and Replacement Editing 

Zero suppression an d repl acement editing means the suppression of 
leading zeros in numeric character positions and is indicated by the use 
of the alphabetic character Z or the character * in the PICTURE 
character string. If Z is used, the replacement character will be the 
space; if * is used, the replacement character will be *. 

The symbols + - ♦ Z and $ are mutually exclusive as floating 
replacement characters in a given PICTURE character string. 

Each suppression symbol is counted in determining the size of an 
item. 

Zero suppression and replacement editing is indicated in a PICTURE 
character string by using a string of one or more of either allowable 
symbol to represent leading numeric character positions, which are to be 
replaced when the associated character position in the data contains a 
zero. Any of the simple insertion characters embedded in the string of 
symbols or to the immediate right of this string are part of the string. 
Simple insertion or fixed insertion editing characters to the left of 
the string are not included. 

In a PICTURE character string, there are only two ways of 
representing zero suppression: 

1. Any or all of the leading numeric character positions to the left 
of the decimal point are represented by suppression symbols. 

2. All of the numeric character positions in the PICTURE character 
string are represented by suppression symbols. 

If the suppression symbols appear only to the left of the decimal 
point, any leading zero in the data which appears in a character 
position corresponding to a suppression symbol in the string is replaced 
by the replacement character. Suppression terminates at the first 
nonzero digit in the data or at the decimal point, whichever is 
encountered first. 

If all numeric character positions in the PICTURE character string 
are represented by suppression symbols, and the value of the data is not 
zero, the result is the same as if the suppression characters were only 
to the left of the decimal point. 

If the value of the data is zero, the entire data item will be spaces 
if the suppression symbol is Z, or it will be asterisks (except for the 
actual decimal point) if the suppression symbol is *. 

If the value of the data is zero and the asterisk is used as the 
suppression symbol, zero suppression editing overrides the function of 
the BLANK WHEN ZERO clause, if specified. 

Examples of Zero Suppression and Replacement Editing: 

PICTURE Value of Data Edited Result 

ZZZZ.ZZ 0000.00 

4:4c4c*. 4c3|c 0000.00 ♦♦♦♦^♦* 

ZZZZ.99 0000.00 .00 

♦♦♦♦,99 0000.00 ♦♦♦♦.00 

ZZ99.99 00000.00 00.00 

Z,ZZZ.ZZ+ +123.456 123.45+ 

♦^♦♦♦.♦♦+ -123.45 **123.45- 

**,♦**,*♦♦.**+ +12345678.9 12,345,678.90+ 

$Z,ZZZ,ZZZ.ZZCR +12345.67 $ 12,345.67 

$B*,***,***.**BBDB -12345.67 $ ♦**12,345.67 DB 
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SIGN :Clause( Version 3) 
Progra m Product Informa-bi on — Version 3 



''friie SIGN clatise speci-f ies\ fcheii'^sition and mode of representation of 
the operaticmal sijgn for a niH^jric data description entry. 



■r 1 

I Format | 

i._ ^ 

I 1 

I [ SIGN IS] } > t SEPARA-TE CHARACTER] { 

I I trailing! j 

, L .; — . — '. : : : ■ i 

The SIGN clause is required only when an explicit description of the 
properties of the operational sign is necessary. 

The numeric data description entries to which the SIGN clause 
applies must, explicitly or implicitly, be described as USAGE IS 
DISPLAY. 

Only one SIGN clause may apply to any given numeric data description 
entry. 

The SIGN clause may be specified only for a numeric data description 
entry whose PICTURE contains the character S, or for a group item 
containing at least one such numeric data description entry. 

When specified, the SIGN clause defines the position and mode of 
representation of the operational sign for the numeric data 
description entry to which it applies, or for each numeric data 
description entry subordinate to the group to which it applies. 

If the SEPARATE CHARACTER option is not specified, then: 

• The operational sign is presumed to be associated with the 
LEADING or TRAILING digit position, whichever is specified, of 
the elementary numeric data item. (In this instance, 
specification of SIGN IS TRAILING is the equivalent of the 
standard action of the compiler.) 

• The character S in the PICTURE character string is not counted 
in determining the size of the item (in terms of Standard Data 
Format characters). 

If the SEPARATE CHARACTER option is specified, then: 

• The operational sign is presumed to be the LEADING or TRAILING 
character position, whichever is specified, of the elementary 
numeric data item. This character position is not a digit 
position. 

• The character S in the PICTURE character string is counted in 
determining the size of the data item (in terms of Standard Data 
Format characters) . 

• + is the character used for the positive operational sign. 

• - is the character used for the negative operational sign. 
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SYNCHRONIZED Clause 



• At object time if one of the characters + or - is not present in 
the data an error occurs, and the program will terminate 
i abnormally. 

^Every numeric data description entry .whose PICTURE contains the 
Ichsracteii [S is a signed numertic .data description entry. If the SIGN 
|olia?tisd appiiies td siuch aen ent^ry, and 'conversion is necessary for 

»uHP<|s|^^s| |dj^ [oc|n|putkfei|an,| Jdr; l^ot aoTOp^tjL&cff^ ,1 Iconvrersiob takesf :pl'a!cb 

"i Sift ll^?!.'''" i '"»»''''*• ' i ' " 

^ci^^^ ,3^^ yic^ ^^iX^'^^ io^ ^a 'nutoeDic sdata des-Csrif;^:!^^ « 
■^ifcifl^; ictfiartekite^^ S|txing"^cst«|ta'ins! $che ch|arax*t:er fe,, thjeia 

l^^tti^' '^^j^4km&h sii^iir ' is t^det:^tt|e|tteid a^" 'explained .!!« 



J!^^j|ji^i|^ei8fT^f«usNe, 




SYNCHRONIZED Clause 



The SYNCHRONIZED clause specifies the alignment of an elementary item 
on one of the proper boundaries in core storage. 



I Format 

j. 



^SYNCHRONIZED 
(SYNC 



LEFT 



RIGHT 



L J 



The SYNCHRONIZED clause is used to ensure efficiency when performing 
arithmetic operations on an item. 

The SYNCHRONIZED clause may appear only at the elementary level Sir^ 



If either the LEFT or the RIGHT option is specified, it is treated as 
comments . 

The length of an elementary item is not affected by the SyKCHRONIZED 
clause. 

When the SYNCHRONIZED clause is specified for an item within the 
scope of an OCCURS clause, each occurrence of the item is synchronized. 

When the item is aligned, the character positions between the last 
item assigned and the current item are known as "slack bytes." These 
unused character positions are included in the size of any group to 
which the elementary item preceding the synchronized elementary item 
belongs. 

The proper boundary used to align the item to be synchronized depends 
on the format of the item as defined by the USAGE clause. 
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SYNCHRONIZED Clause 

When the SYNCHRONIZED clause is specified, the following actions are 
taken: 



For a COMPUTATIONAL item: 

1. If its PICTURE is in the range of S9 through S9(4), the item is 
aligned on a half word (even) boundary. 

2. If its PICTURE is in the range of S9(5) through S9(18), the item is 
aligned on a fullword (multiple of 4) boundary. 

For a COMPUTATIONAL- 1 item, the, item is aligi^d on a. jEii^Xisffifi^^ ij; 
bound,ary. , ' • , • .•,,;;: ';] ■;'' jr^i 

: : \ $3.1 
! - ■ ' ; f''t''% > 

For a COMPUTATIONAL- 2 'item, the item is aligntecl on a dpableworclj 
(multiple of 8) boundciry. ' ; ; i? 

For a DISPLAY or CpMPtJTATipI?AL-^3 item, the SYNCHRONIZED clause is 
treated as comments. 



Note: In the discussion that follows, the term "computational" refers 

to COMPUTATIONAL, -VCpMPUTATlGNAL-l^ah^^ items . 

When the SYNCHRONIZED clause is specified for an item that also 
contains a REDEFINES clause, the data item that is redefined must have 
the proper boundary alignment for the data item that REDEFINES it. For 
example, if the programmer writes: 

02 A PICTURE X(4) . 

02 B REDEFINES A PICTURE S9(9) COMP SYNC. 

he must ensure that A begins on a fullword boundary. 

When the SYNCHRONIZED clause is specified for a computational item 
that is the first elementary item subordinate to an item that contains a 
REDEFINES clause, the computational item must not require the addition 
of slack bytes. 

When SYNCHRONIZED is not specified for binary or internal 
floating-point items, no space is reserved for slack bytes. However, 
when computation is done on these fields, the compiler generates the 
necessary instructions to move the items to a work area which has the 
correct boundary necessary for computation. 

In the File Section, the compiler assumes that all level- 01 records 
containing SYNCHRONIZED items are aligned on a doubleword boundary in 
the buffer. The user must provide the necessary inter-record slack 
bytes to ensure alignment. 

In the Working- Storage Section, the compiler will align all level-01 
entries on a doubleword boundary. 



For iti^ purposes of a^igjniiigj CX$^mTFM!S^C^l^ 

sa^asliineid tie lbeg,i4ft .op dkMalieWK^d |hK>tm<Jg|r'ies|.j \ 
'isssdes- a CALL startaepieirrt he nttMSti lensure t^:*^ 
clause within it are (C»rrespon^ngly aligridd 
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Slack Bytes 
Slack Bytes 



There are two types of slack bytes; 
inter-record slack bytes. 



intra-record slack bytes and 



Intra-recor d slack bytes are unused character positions preceding 
each synchronized item in the record. 

Inter-record slack bytes are unused character positions added between 
blocked logical records. 

INTRA-RECORD SLACK BYTES : For an output file, or in the Working-Storage 
Section, the compiler inserts intra-record slack bytes to ensure that 
all SYNCHRONIZED items are on their proper boundaries. For an input 
file, or in the Linkage Section, the compiler expects intra-record slack 
bytes to be present when necessary to assure the proper alignment of a 
SYNCHRONIZED item. 

Because it is important for the user to know the length of the 
records in a file, the algorithm the compiler uses to determine whether 
slack bytes are required and, if they are required, the number of slack 
bytes to add, is as follows: 

• The total number of bytes occupied by all elementary data items 
preceding the computational item are added together, including 
any slack bytes previously added. 



• This sum is divided by m, where: 

m = 2 for COMPUTATIONAL items of four-digit length or less 
m = 4 for COMPUTATIONAL items of five-digit length or more 

»4: 




• If the remainder (r) of this division is equal to zero, no 
slack bytes are required. If the remainder is not equal to 
zero, the number of slack bytes that must be added is equal to 
m - r. 

These slack bytes are added to each record immediately following the 
elementary data item preceding the computational item. They are defined 
as if they were an item with a level number equal to that of the 
elementary item that immediately precedes the SYNCHRONIZED item, and are 
included in the size of the group which contains them. 

For example: 



01 FIELD-A. 

02 FIELD-B 
02 FIELD-C. 

03 FIELD- D 
[03 Slack-Bytes 
03 FIELD-E 

01 FIELD-L. 

02 FIELD-M 
02 FIELD-N 
[02 Slack-Bytes 
02 FIELD- 0. 

03 FIELD-P 



PICTURE X(5). 

PICTURE XX. 

PICTURE X. Inserted by compiler] 

PICTURE 39(6) COMP SYNC. 



PICTURE X(5) . 

PICTURE XX. 

PICTURE X. Inserted by compiler] 

PICTURE S9(6) COMP SYNC. 
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Slack Bytes 

Slack bytes may also be added by the compiler when a group item is 
defined with an OCCURS clause and contains within it a SYNCHRONIZED data 
item with USAGE^ defined as C0MPUTATI0NAL^E^E^^|i|^^^^^^^^5 
■'^^^^^^^^^^^^. To determine whether slack bytes are to be added, the 
following action is taken: 

• The compiler calculates the size of the group, including all the 
necessary intra-record slack bytes. 

• This sum is divided by the largest m required by any elementary 
item within the group. 

• If r is equal to zero, no- slack bytes are required. If r is not 
equal to zero, m - r slack bytes must be added. 



The slack bytes are inserted at the end of each occurrence of the 
group item containing the OCCURS clause. For example, if a record is 
defined as follows: 



01 WORK- RECORD. 

02 WORK-CODE PICTURE X. 

02 COMP- TABLE OCCURS 10 TIMES. 



03 COMP-TYPE 

[03 la-Slack-Bytes 

03 COMP-PAY 

03 COMP-HRS 

03 COMP-NAME 



PICTURE X. 

PICTURE XX. Inserted by compiler] 

PICTURE S9(4)V99 COMP SYNC. 

PICTURE S9(3) COMP SYNC. 

PICTURE X(5). 



The record will appear in storage as shown in Figure 17. 
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D = doubleword boundary 
F = fullword boundary 
H = halfword boundary 



Figure 17. Insertion of the Intra-occurrence Slack Bytes 

In order to align COMP-PAY and COWP-HRS upon their proper boundaries, 
the compiler has added two intra-occurrence slack bytes (shown above as 
I A- SLACK-BYTES) . 

However, without further adjustment, the second occurrence of 
COMP-TABLE would now begin one byte before a doubleword boundary, and 
the alignment of COMP-PAY and COMP-HRS would not be valid for any 
occurrence of the table after the first. Therefore, the compiler must 
add inter-occurrence slack bytes at the end of the group, as though the 
record had been written: 



Data Description Entry — Details of Clauses 133 



Slack Bytes 



01 



WORK-RECORD. 
02 WORK- CODE 



PICTURE X. 



02 COMP-TABLE OCCURS 10 TIMES. 



03 COiXlP-TYPE 

[03 la-Slack-Bytes 

03 COMP-PAY 

03 COMP-HRS 

03 COMP-NAME 

[03 le-Slack-Bytes 



PICTURE X. 

PICTURE XX. Inserted by compiler] 

PICTURE S9(4)V99 COMP SYNC. 

PICTURE S9{3) COMP SYNC. 

PICTURE X(5) . 

PICTURE XX. Inserted by compiler] 



so that the second (and each succeeding) occurrence of COMP-TABLE begins 
one byte beyond a doubleword boundary. The storage layout for the first 
occurrences of COMP-TABLE will now appear as shown in Figure 18 . 



-First Occurrence of COMP-TABLE - 



-Second Occurrence of COMP-TABLE- 



OO 
5 <j 



lA 

Slock 
U H^l Bytes 

I 



Is 



COMP-NAME 

_L 



IE 

Slack 
Bytes 



H 



D = doubleword boundary 
F = fullword boundary 
H = holfword boundary 



Figure 18. Insertion of Inter-occurrence Slack Bytes 



Each succeeding occurrence within the table will now begin at the same 
relative position to word boundaries as the first. 



Where SYNCHRONIZED data items defined as COMPUTATIONAL, 
mi^i^^^&^^M&^&'^^-^^i^^^^^i^&^^!^^i&^ follow an entry containing an OCCURS 
clause with the DEPENDING ON option, slack bytes are added on the basis 
of the field occurring the maximum number of times. If the length of 
this field is not divisible by the m required for the computational 
data, only certain values of the data-name that is the object of the 
DEPENDING ON option will give proper alignment of the computational 
fields. These values are those for which the length of the field times 
the number of occurrences plus the slack bytes that have been calculated 
based on the maximum number of occurrences is divisible by m. 



For example: 

01 FIELD-A. 

02 FIELD-B 
02 FIELD-C 

DEPENDING ON FIELD-B. 
[02 Slack-Byte 
02 FIELD-D 



PICTURE 99. 

PICTURE X OCCURS 2 TO 99 TIMES 

PICTURE X. Inserted by compiler] 
PICTURE S99 COMP SYNC. 
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slack Bytes 



In this example, when references to FIELD-D are required, FIELD-B is 
restricted to odd values only. 



01 FIELD-A. 

02 FIELD-B 
02 FIELD-C 

DEPENDING ON FIELD-B. 
[02 Slack- Byte 
02 FIELD-D 



PICTDRE 999. 

PICTURE XX OCCURS 20 TO- 99 TIMES 

PICTURE X. Inserted by compiler] 
PICTURE S99 COMP SYNC. 



In this example all values of FIELD-B give proper references to 
FIELD-D. 



INTER- RECORD SLACK BYTE S; If the file contains blocked logical records 
that are to be processed in a buffer, and anj of the records contain 
entries defined as COMPUTATIONAL/' icxM^Ei^|i^|pW^-^y^-<^^ 
for which the SYNCHRONIZED clause is specified, the user must add any 
iter-r ecord slack bytes needed for proper alignment. 



The lengths of all the elementary data items in the record, including 
all intra-record slack bytes, are added. For mode V rer:nrt;^Sj it ..JUB 
necessary to add f nnr hy'-'^'ir ^^r ^ he count field . The total is then 
divided by the highest value of m for any one of the elementary items in 
the record. 

If r (the remainder) is equal to zero, no inter-record slack bytes 
are required. If r is not equal to zero, m - r slack bytes are 
required. These slack bytes may be specified by writing a level-02 
FILLER at the end of the record. 

Example : The following example shows the method of calculating both 
intra-record and inter-record slack bytes. Consider the following 
record description: 



01 COMP-RECORD. 



02 


A-1 


PICTURE 


X(5). 


02 


A- 2 


PICTURE 


X(3). 


02 


A- 3 


PICTURE 


X(3). 


02 


B-1 


PICTURE 


S9999 


02 


B-2 


PICTURE 


S99999 


02 


B-3 


PICTURE 


S9999 



USAGE COMP SYNCHRONIZED. 

USAGE COMP SYNCHRONIZED. 
USAGE COMP SYNCHRONIZED. 



The number of bytes in A-1, A-2, and A-3 total 11. B-1 is a 4-digit 
COMPUTATIONAL item and, therefore, one intra-record slack byte must be 
added before B-1. With this byte added, the number of bytes preceding 
B-2 total 14. Since B-2 is a COMPUTATIONAL item of 5 digits in length, 
two intra-record slack bytes must be added before it. No slack bytes 
are needed before B-3. 



The revised record description entry now appears as: 

01 COMP-RECORD. 

02 A-1 PICTURE X(5). 

02 A-2 PICTURE X{3) . 

02 A-3 PICTURE X(3). 

[02 Slack-Byte-1 PICTURE X. Inserted by compiler] 

02 B-1 PICTURE S9999 USAGE COMP SYNCHRONIZED. 

[02 Slack-Byte-2 PICTURE XX. Inserted by compiler] 

02 B-2 PICTURE S99999 USAGE COMP SYNCHRONIZED. 



02 B-3 



PICTURE S9999 USAGE COMP SYNCHRONIZED. 



There are a total of 22 bytes in COMP-RECORD, but from the rules 
given in the preceding discussion, it appears that m = 4 and r = 2. 
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USAGE Clause 



Therefore, to attain proper alignment for blocked records, the user must 
add two inter-record slack bytes at the end of the record. 

The final record description entry appears as: 

01 COMP-RECORD. 

02 A-1 PICTURE X(5) . 

02 A-2 PICTURE X(3). 

02 A- 3 PICTURE X{3) . 

[02 Slack-Byte-1 PICTURE X. Inserted by compiler] 

02 B-1 PICTURE S9999 USAGE COMP SYNCHRONIZED. 

[02 Slack-Byte-2 PICTURE XX. Inserted by compiler] 

02 B-2 PICTURE S99999 USAGE COMP SYNCHRONIZED. 

02 B-3 PICTURE S9999 USAGE COMP SYNCHRONIZED. 

02 FILLER PICTURE XX. [inter-record slack bytes added by 

user] 



USAGE Clause 



The USAGE clause specifies the manner in which a data item is 
represented in core storage. ^ 



Format 1 



DISPLAY 

rCOMPUTATIONAL ) 
(COMP J 

(COMP UTATIONAL- 1 ] 
[USAGE IS] |1cOMP-l j 

I COM PUTATIONAL- 2 ] 
[ COMP- 2 J 

f COMPUTATIONAL- 3] 

D ISPLAY- Sa- 
INDEX 

L J 






UshGE isY !« 



Format 2 (Version 3) 



^^^^^^.^^ 



iccMWfmriiMmr^nt '' " ^ '» 4* f ^ 



COMP-4 



u^ 



-It 



!*«.-. ^,1^^^i«, -^.»,;.^.„. 



Il-s^r 



L L-J 



The USAGE clause can be specified at any level of data description. 
However, if the USAGE clause is written at a group level, it applies to 
each elementary item in the group. The usage of an elementary item 
cannot contradict the usage of a group to which an elementary item 
belongs. 

This clause specifies the manner in which a data item is represented 
in core storage. However, the specifications for some statements in the 
Procedure Division may restrict the USAGE clause of the operand referred 
to. 
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Data Division 



USAGE Clause 

If the USAGE clause is not specified for an elementary item, or for 
any group to which the item belongs, it is assumed that the usage is 
DISPLAY. 

Note: ASCII considerations for the USAGE clause are given in 
Appendix E. 



DISPLAY OPTION 

The DISPLAY option can be explicit or implicit. It specifies that 
the data item is stored in character form, one character per eight-bit 
byte. This corresponds to the form in which information is represented 
for initial card input or for final printed or punched output. USAGE IS 
DISPLAY is valid for the following types of items: 

• alphabetic 

• alphanumeric 

• alphanumeric edited 

• numeric edited 

• external decimal 

• external floating point 

The alphabetic , alphanumeric, alphanumeric edited, and numeric edited 
items are discussed in the description of the PICTURE clause. 

Extern al Decimal Items : These items are sometimes referred to as zoned 
decimal items. Each digit of a number is represented by a single byte. 
The four high-order bits of each byte are zone bits; the four high-order 
bits of the low-order byte represent the sign of the item. The four 
low-order bits of each byte contain the value of the digit. When 
external decimal items are used for computations, the compiler performs 
the necessary conversions. 

The maximum length of an external decimal item is 18 digits. 

Examples of external decimal items and their internal representation 
are shown in Figure 19- 

•Ext;egr»a:l tFloci t:iriq[-Point I teeos i ThB PICTURE of an external . ' 
^f Ipat^ng-piqint itein is in the ft>rit>wi'ng form: ' ' • s :» , ,„», 

- {±}maatissa E{±}e3cponen-t 

usee the discussion oft ttie E^I'CI^URE^ clauj^e for thief validE combitMtJidn of ^ 

; i ' ! ' ! ' 

T^€s mantissa is the decirrial part of the number. 

; I The exponent specifies a power of ten that is used as a multiplier. > 

The value of an external floating-point number is t'he mantissa ' 
multiplied by the power of ten expressed by the exponent. The magnitude 
of a, number represented by a floating-point item must be greater than 
[5.4 X dO-''^) but must not esxceed ,72 X (lO'^e) . 

I When used as a numeric qperand an external floating-point number is 
fscanned at object time, and converted to the equivalent internal 
[floating-point values. In this form, the number is used in arithmetic 
operations. (See C0i4PUTATI0NAL-l and COMPUTATIONAL- 2 options.) 
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USAGE Clause 



An exampXe Qf ,c 






The Computational Options 



A COKPUTATIO'NAL 
•9«?ra9C|^ffiSlNi3|g^^^|^ item represents a value to ae used in arithmetic 
operations and must be numeric. If the USAGE of any group item is 
described with any of these options, it is the elementary items within 
this group which have that USAGE. The group item itself cannot be used 
in computations. 



COMPUTATIONAL OPTION ; This option is specified for binary data items. 
Such items have a decimal equivalent consisting of the decimal digits 
through 9, plus a sign. 

The amount of storage occupied by a binary item depends on the number 
of decimal digits defined in its PICTURE clause: 



Digits in PICTURE Clause 

1 through 4 

5 through 9 

10 througn 18 



Storage Occupied 
2 bytes (halfword) 
4 bytes (fullword) 
8 bytes (2 fullwords — 
not necessarily 
a doubleword) 



The leftmost bit of the storage area is the operational sign. 

The PICTURE of a COMPUTATIONAL item may contain only 9's, the 
operational sign character S, the implied decimal point V, and one or 

more P's. 



An example of a binary item is shown in Figure 19. 

Note : The COMPUTATIONAL option is system dependent and normally is 
assigned to representations that yield the greatest efficiency when 
performing arithmetic operations on that system,; for tnis compiler, the 
CCMPuTATIONAL option is binary. 



COMPUTATIONAL-1, COM P UTATIONAL- 2 OPTIONS ; These options are sp€;Cifl^<||£;* 
:fQr internal floating-point items. . 'Such an' item is..,eqaivalG.fit ti;orai||::||j|J.' 
;external floating-^point- item -in. capability and purpose.' S^ch ;iteffl£j^ j ^^ jij^,^^^^^^^ 
|.0fC;cupy' neither ii cli^ f8\ bytes \6t' storage* ■ ■ '• ; ■■:.;, ' ■, ;'|:!;1, j, ^i-4:^'■■■^'*#f'^' 



The Vsiqn .of '.th^-iifractiQii:™lmantissa) is^.the-.leftraost ..bit-'Jint^ieifeigitfeJi MJfffi* 



Jkirmat.i 



4 IriiBv-ffefefel^^^ 



■., ■.^,' .; Th^ jexponent .■■%fcteiars|. ii|ii tbilfc. /pQfc»it|iQn& l-'tthjfqugh. ^I';^;/} 

■■ :^- I The ;f rag ti oh -t-l. ,:#}ai^aij|^t|-,:to jt^hd' n»anti;s,sa;;M- t^pps^ai?;^ |i^|ip^;lp;|- j4| 












mmmmmmM 





Mikd- -fmH-'-ltong-lp-tyddl^iB^^ 



l.erigtih;,v and"a:ss^' isap4i<iEP^ ;0t '^^^^^^pm 
;es'';th^!' r^i-glitjnfj^1:i;- 1ste?i^l|i>j^ife|eS 



l^pcyitife;- ■iiffc^ir^l;';:;^?^! ?f^^ 
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USAGE Clause 

No PICTURE clause may be associated with an internal floating-point 
item. 

Examples of internal floating-point items, and their internal 
representation, are shown in Figure 19- 
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USAGE Clause 
COMPOTRT I ONAL-3 OPTION ; This option is specified for internal/;.a(^^iiiBal y-, 



items. Such an item appears in storage in packed decimal format. ' There 
are two digits per byte, with the sign contaijii^ in the low-oxdter four'; 
bits of the rightmost byte. Such an item maty contain any of the ;d|igit±i^, , 
through 9, plus a sign, representing a value not exceeding 18 de^imailj 
digits. ' • ■ , ^ ' s / 

For internal decimal items whose PICTURE does not contain an S,: the j, 
sign position is occupied by a bit configuration that is interpreted as 
positive, but that does not represent an overpunch. 

The PICTURE of a COMPUTATIONAL- 3 item may contain only 9*s, the 
operational sign character S, the assumed decimal point V, and one or 
more P*s. 

Examples of internal-decimal items and their internal representation 
are shown in Figure 19. 



Program Product Information — Version 3 



COMPU T ATIONAL- 4 OPTION : This option (Format 2) is specified for 
system- independent binary items. For this compiler, it is the 
equivalent of COMPUTATIONAL. 

USAG? DISPLAY-ST is discussed in the chapter on Sterling Currency. 
USAGE INDEX is discussed in the chapter on Table Handling. 
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USAGE Clause 



■T T 

I Value I Description 



Item 



h 



Internal Representation* | 

-I 



External Decimal 



-1234 



4- 



DI SPLAY I 
PICTURE 9999 | 



DISPLAY I 
PICTURE S9999I 



I Zl| Z2|Z3|F4| 
L X X X J 



byte 
|Z1|Z2|Z3|D4| 

L X X X J 



j byte 

I 

I i^ote that, internally, 

I the D4, which represents 

I -4, is the same bit 

i configuration as the 

I EBCDIC character M. 



.(Version 3)- '{:iCl 
DISPLAY V ■■ ipl 
/■; ^PICTURE ■S999^p|-'^ 

: ;SIGN 'LEADING jj-i;;! 

^ ^ • '- - ' -^ m 



|Dl|Z2|Z3jZ4| 

L X X X J 



[ byte 




jJ'-jH--Wc|t;q that internally 
" f^||]>l^>; twhich represeiits 

■'"'SxE^. rdhiei 'Safne bit. 

i?t*'^*cic|iMilgiiration "ate the 
■■'■■ ■-'^"' 1|c 'cbalxi^clt^ -ffJ i 
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iVrf 



tflSteTTTt 
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Binary 



-1234 



CO^dPUTATIONAL 
PICTURE S9999 



;(^|^rjs|iic«i.a>Ii.: ^ 



|1111|1011|0010|1110| 

L X J X J 

S byte 

Note that, internally, 
negative binary numbers 
appear in two ' s 
complement form. 



♦Codes used in this column are as follows: 

Z = zone, equivalent to hexadecimal F, bit configuration 1111 

Hexadecimal numbers and their equivalent meanings are: 

F = nonprinting plus sign (treated as an absolute value) 

C = internal equivalent of plus sign, bit configuration 1100 

D = internal equivalent of minus sign, bit configuration 1101 

S = sign position of a numeric field; internally, 

1 in this position means the number is negative 
in this position means the number is positive 

b = a blank 

Figure 19. Internal R.epresentation of Numeric Items (Part 1 of 2) 
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USAGE Clause 



Item 



I Value I Description 



-T 1 

1 Internal Representation* 1 



-+- 



-:ii 



^ , . i t> ,, ,1' [2 

External i+12.34fi+2 

Floating-Point I 



Internal | 

Floating-Point j 



Internal Deciinali .,+12^#,' iCC»H'dTAl^C«3SE-3|nr"r i"^/-|||[||!^^^ 



>'-~ \ PICTURE' 999'S^ 4^^W^'"-tlPtv 
I P I" i -I' i ■ ' ^l-'r 'I . 

' ■ ♦ 14.'. 






! ' f u f'V Aim 

.CXMPUTATiONW:,-3t;+^#|}{|n,., ..,, , 
J PldrURE S-99'^9-|-^? rJk^-;fft4i_Jlj-i 






I 




1 .'iW^Si^' H^byt 



DISPLAY •!; . :,;i*J[l;t2hi|i314|E|:«te(|2||.| 

PICTURE ^ h:^' 4-«-4-^-.-»^^--»~i-4vm^i|li;' 

4-99.99E-99 | .« -.- J i i i ' ■ ' * ' '* '^ 



I I , ,.; I ; , , ' ] 

COMPUTATIONAL- 1:1 i | s;|,!E3^ponedt| FrajCt'iWn ; ! : f 



t < 1 > ri 5 



i - -. ot -1 



7 8 



COMPUTATIONAL-2 j , , ] S j Exponent | Fradtlildn m ' |t 



1. ; Q 1 
.i___ . 



7 8 



m\ 



♦Codes used in this column are as follows: 

Z = zone, equivalent to hexadecimal F, bit configiiration 1111 

Hexadecimal numbers and their equivalent meanings are: 

F = nonprinting plus sign (treated as an absolute value) 

C = internal equivalent of plus sign, bit configuration 1100 

D = internal equivalent of minus sign, bit configuration llCl 

S = sign position of a numeric field; internally, 

1 in this position means the number is negative 
in this position means the number is positive 

b = a blank 



Figure 19. Internal Representation of Numeric Items (Part 2 of 2) 
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VALUE Clause 
VALUE Clause 



The VALUE clause is used to define the initial value of a 
Working-Storage item or the value associated with a condition- name. 

There are two formats of the VALUE clause: 



r 1 

I Format 1 | 

1. -I 

I I 

I VALUE IS literal | 

I i 

L J 



r 1 

I Format 2 | 

Y ^ 

( VALUE IS 

literal-1 [THRU literal-2] 
I VALUES AReJ 

[literal-3 [THRU literal- 4] ].. . 

L : J 



The VALUE clause must not be stated for any item whose size, explicit 
or implicit, is variable. 

A figurative constant may be substituted wherever a literal is 
specified. 

Rules governing the use of the VALUE clause differ with the 
particular section of the Data Division in which it is specified. 

1- In the File Section ajnxi .tim Uunikklge S^ecrtdxm, the VALUE clause must 
be used only in condition- name entries. flq|W,ev;^,, th^-pi fp/n^^ 



®|e»dta.|oa:n «ij:^tjri.e|^„' moA- fccfei^ its a|s' kxjjBwji^tB.^ ' ■ . ' ' ] > m ' 4 » [ f 

2. In the Working-Storage Section, the VALUE clause must be used in 
condition-name entries, and it may also be used to specify the 
initial value of any data item. It causes the item to assume the 
specified value at the start of execution of the object program. 
If the VALUE clause is not used in an item's description, the 
initial value is unpredictable. 

3. In the Report Section, the VALUE clause causes the report data item 
to assume the specified value each time its report group is 
presented. This clause may be used only at an elementary level in 
the Report Section. The Report Section is discussed in detail in 
the "Report Writer" chapter. 

The VALUE clause must not be specified in a data description entry 
that contains an OCCURS clause or in an entry that is subordinate to an 
entry containing an OCCURS clause. This rule does not apply to 
condition- name entries. 

Within a given record description, the VALUE clause must not be used 
in a data description entry that is subsequent to a data description 
entry which contains an OCCURS clause with a DEPENDING ON phrase. 
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VALUE Clause 

The VALUE clause must not be specified in a data description entry 
which contains a REDEFINES clause or in an entry which is subordinate to 
an entry containing a REDEFIi'^ES clause. This rule does not apply to 
condition-name entries. 



If the VALUE clause is used in an entry at the group level, the 
literal must be a figurative constant or a nonnumeric literal. The 
VALUE clause then cannot be specified at subordinate levels within 
this group. 



The VALUE clause cannot be specified for a group containing items 
with descriptions including JUSTIFIED, SYNCHRONIZED, or USAGE (other 
than USAGE IS DISPLAY) . 

iliilllli^HIHl^HWSHBL 

The following rules apply: 

1. If the item is numeric, all literals in the VALUE clause must be 
numeric literals. If the literal defines the value of a 
Working-Storage item, the literal is aligned according to the rules 
for numeric moves, except that the literal must not have a value 
that would require truncation of nonzero digits. 

If tlie it-sKi is mi SMti&tXi^ f lostting'-^ist ±tm&^ tb^ literal nmMt hm 
a fioatiug^-pojtnt Xlfcer«ti <for ^xa^tpl^ mx^llB IB t*X*B*5l>* 

2« If the item is alphabetic or alphanumeric (elementary or group) , 
all literals in the VALUE clause must be nonnumeric literals. The 
literal is aligned according to the alignment rules (see "JUSTIFIED 
Clause") , except that the number of characters in the literal must 
not exceed the size of the item. 

3. All numeric literals in a VALUE clause of an item must have a value 
that is within the range of values indicated by the PICTURE clause 
for that item. For example, for PICTURE 99PPP, the literal must be 
within the range 1000 through 99000 or zero. For PICTURE PPP99, 
the literal must be within the range .00000 through .00099. 

U. The function of the editing characters in a PICTURE clause is 
ignored in determining the initial appearance of the item 
described. However, editing characters are included in determining 
the size of the item. 

Format 1 of the VALUE clause must not conflict with other clauses 
either in the data description of the item or in the data descriptions 
within the hierarchy of this term. 

Format 2 of the VALUE clause is used to describe a condition-name. 
Each condition-name requires a separate level- 8 8 entry. A Format 2 
VALUE clause associates a value, values, or range of values with the 
condition-name. In a condition-name entry, the VALUE clause is required 
and is the only clause permitted in the entry. 

A condition- name is a name assigned by the user to the values a data 
item may assume during object program execution. A condition-name must 
be formed according to the rules for data-name formation. The 
condition-name entries for a particular conditional variable must follow 
the conditional variable. Hence, a level-88 entry must always be 
preceded either by the entry for the conditional variable or by another 
level-8 8 entry (in the case of several consecutive condition-names 
pertaining to a given item) . 
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RENAMES Clause 

The THRU option assigns a range of values to a condition-name. 
Wherever used, literal-1 must be less than literal-2 , literal-3 less 
than literal-4 , etc. 

The type of literal in a condition-name entry must be consistent with 
the data type of the conditional variable. In the following example, 
CITY-COUNTY-INFO, COUNTY-NO, and CITY are conditional variables; the 
associated condition-names immediately follow the level-number 88. The 
PICTURE associated with COUNTY-NO limits the condition-name value to a 
2-digit numeric literal. The PICTURi; associated with CITY limits the 
condition-name value to a 3-character nonnumeric literal. Any values 
for the condition-names associated with CITY-COUNTY- INFO cannot exceed 5 
characters, and the literal (since this is a group item) must be 
nonn\americ : 

05 CITY-COUNTY-INFO. , 

88 BRONX VALUE "03NYC". 

88 BROOKLYN VALUE "24NYC". 

88 lyJANHATTAN VALUE "31NYC". 

88 QUEENS VALUE "41 NYC". 

88 STATEN-ISLAND VALUE "lt3NYC". 
10 COUNTY- NO PICTURE 99. 

88 DUTCHESS VALUE 14. 

88 KINGS VALUE 24. 

88 NEW- YORK VALUE 31. 

88 RICHMOND VALUE 43. 
10 CITY PICTURE X(3). 

88 BUFFALO VALUE "BUF" . 

88 NEW-YORK-CITY VALUE "NYC". 

88 POUGHKEEPSIE VALUE "POK". 
05 POPULATION . . . 

Every condition-name pertains to an item in such a way that the 
condition-name may be qualified by the name of the item and the item's 
qualifiers. The use of condition-names in conditions is described in 
"Conditions. " 

A condition-name may pertain to an item (a conditional variable) 
requiring subscripts. In this case, the condition-name, when written in 
the Procedure Division, must be subscripted according to the require- 
ments of the associated conditional variable. 

A condition-name can be associated with any elementary or group item 
except the following: 

1. A level- 6 6 item 

2. A group containing items with descriptions which include JUSTIFIED, 
SYNCHRONIZED, or USAGE other than DISPLAY 

3. An index data item (see "Table Handlina") 



RENAMES Clause 

The RENAMES clause permits alternate, possibly overlapping, groupings 
of elementary data. 

r 1 

I Format | 

^ ^ 

\ I 

i 66 data-name- 1 RENAMES data-name- 2 [ THRU data-name- 3] | 

I I 

L . J 



lUa Pa-r-H TTT -- Data Div 



RENAMES Clause 
One or more RENAMES entries can be written for a logical record. 

All RENAMES entries associated with a given logical record must 
immediately follow its last data description entry. 

Data-name-2 and data-name- 3 must be the names of elementary items or 
groups of elementary items in the associated logical record and cannot 
be the same data name. Data- name- 3 cannot be subordinate to 
data-name-2. 

When data- name- 3 is not specified, data-name-2 can be either a group 
item or an elementary item. When data-name-2 is a group item, 
data-name-1 is treated as a group item, and when data-name-2 is an 
elementary item, data-narae-1 is treated as an elementary item. 

When data- name- 3 is specified, data-name-1 is a group item that 
includes all elementary items: 

1. starting with data-name-2 (if it is an elementary item) ; or 
starting with the first elementary item within data-name-2 (if it 
is a group item) , and 

2. ending with data-name- 3 (if it is an elementary item) ; or ending 
with the last elementary item within data-name-3 (if it is a group 
item) . 

A level-66 entry cannot rename another level-66 entry nor can it 
rename a level-77, level-88, or level-01 entry. 

Data-name-1 cannot be used as a qualifier and can be qualified only 
by the names of the level-01 or FD entries. 

Both^ data-name-2 and data-name-3 may be qualified. 

Neither data-name-2 nor data-name-3 may have an OCCURS clause in its 
data description entry nor may either of them be subordinate to an item 
that has an OCCURS clause in its data description entry. 

Data-name-2 must precede data-name-3 in the record description; after 
any associated redefinition, the beginning point of the area described 
by data-name-3 must logically follow the beginning point of the area 
described by data-name-2. 

For example, the following Working- Storage record is incorrect: 

01 ERR-REC. 

02 GROUP-A. 

03 FIELD-IA. 

04 ITEM- 1 A 

04 ITEM- 2 A 
03 FIELD- 2A. 

04 ITEM- 3 A 

04 ITEM- 4 A 
02 GROUP- B REDEFINES 
03 FIELD-IB. 

04 ITEM-IB 

04 ITEM-2B 

04 ITEM- 3 B 
03 FIELD- 2B. 

04 ITEM- 4 B 

04 ITEM-5B 

04 ITEM-6B 



PICTURE XXXX. 
PICTURE XXX. 

PICTURE XXX. 
PICTURE XXX. 
GROUP-A. 

PICTURE XX. 
PICTURE XXX. 
PICTURE XX. 

PICTURE XX. 
PICTURE XX. 
PICTURE XX. 



66 NEW-ERR-REC RENAMES ITEM-3A THRU ITEM-2B. 

Although ITEM-3A precedes ITEM-2B in the record description, ITEM-2B 
logically precedes ITEM-3A in storage. Thus, this example is incorrect. 
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RENAMES Clause 

The following shows the corrected Working-Storage record: 

01 CORRECTED- RECORD. 
02 GROUP- A. 

03 FIELD-IA. 

04 ITEM-IA PICTURE XX. 

04 ITEM-2A PICTURE XXX, 

04 ITEM-3A PICTURE XX. 
03 FIELD-2A. 

04 ITEM-4A PICTURE XX. 

04 ITEM- 5 A PICTURE XX. 

04 ITEM-6A PICTURE XX. 
02 GROUP-B REDEFINES GROUP-A. 
03 FIELD-IB. 

04 ITEM-IB PICTURE XXXX. 

04 ITEM-2B PICTURE XXX. 
03 FIELD- 2B. 

04 ITEM- 3 B PICTURE XXX. 

04 ITEM- 4 B PICTURE XXX.. 
66 NEW-REC RENAMES ITEM-2A THRU ITEM-3B. 

In this example ITEM-2A precedes ITEM-3B both in the record 
description and logically in storage. 

The following example shows how the RENAMES clause might be used in 
an actual program: 

01 OUT-REC. 

02 FIELD-X. 

03 SUMMAR Y- GROUP X. 

04 FILE-1 PICTURE X. 
04 FILE-2 PICTURE X. 
04 FILE-3 PICTURE X. 
02 FIELD- Y. 

03 SUMMARY- GROUPy, 

04 FILE-1 PICTURE X 
04 FILE-2 PICTURE X. 
04 FILE-3 PICTURE X. 
02 FIELD- Z. 

03 SUMMARY- GROUP Z. 

04 FILE-1 PICTURE X. 
04 FILE-2 PICTURE X. 
04 FILE-3 PICTURE X. 
66 SUM-X RENAMES FIELD-X. 

66 SUM-XY RENAMES FIELD-X THRU FIELD- Y. 
66 SUM-XYZ RENAMES FIELD-X THRU FIELD- Z. 

In the Procedure Division, the programmer may wish, for example, to 
do a complete tally of files in each field of the foregoing record. If 
all active files are represented by an A and all inactive files are 
represented by an I, the statement 

EXAMINE SUM-XYZ TALLYING ALL "A" 

would accomplish this purpose. The two additional RENAMES entries 
(SUM-X and SUM-XY) allow a less inclusive tally, if desired. (The 
EXAMINE statement is discussed in "Procedure Division.") 
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PART IV — PROCEDURE DIVISION 



• ORGANIZATION OF THE PROCEDURE DIVISION 



• ARITHMETIC EXPRESSIONS 



• CONDITIONS 



• CONDITIONAL STATEMENTS 



DECLARATIVES 



• ARITHMETIC STATEMENTS 



• PROCEDURE BRANCHING STATEMENTS 



DATA-MANIPULATION STATEMENTS 



• INPUT/OUTPUT STATEMENTS 



• COMPILER- DIRECTING STATEMENTS 
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ORGANIZATION OF THE PROCEDURE DIVISION 



The Procedure Division contains the specific instructions for solving 
a data processing problem. COBOL instructions are written in state- 
ments, which may be combined to form sentences. Groups of sentences may 
form paragraphs, and paragraphs may be combined to form sections. 



The Procedure Division must begin with the header PROCEDURE DIVISION 
followed by a period and a sc 




The Procedure Division header is followed, optionally, by Declarative 
Sections, which are in turn followed by procedures, each made up of 
statements, sentences, paragraphs, and/or sections, in a syntactically 
valid format. The end of the Procedure Division (and the physical end 
of the program) is that physical position in a COBOL source program 
after which no further procedures appear. 

The statement is the basic unit of the Procedure Division. A. 
statement is a syntactically valid combination of words and symbols 
beginning with a COBOL verb. There are three types of statements: 
conditional statements containing conditional expressions (that is, 
tests for a given condition) , imperative statements consisting of an 
imperative verb and its operands, and compiler-directing statements 
consisting of a compiler-directing verb and its operands. 



A sentence is composed of one or mojce^sj^ter^ents^.^ 
optionally be separated by semicolons 
be terminated by a period followed by a space. 



^The statements may 
A sentence must 



Several sentences that convey one idea or procedure may be grouped to 
form a paragraph . A paragraph must begin with a paragraph-name followed 
by a period, A paragraph may be composed of one or more successive 
sentences. A paragraph ends immediately before the next paragraph- name 
or section- name, at the end of the Procedure Division, or, in the 
Declarative portion, at the key words END DECLARATIVES. 

One or more paragraphs form a section . A section must begin with a 
section header (section- name followed by the word SECTION, followed by a 
period; if program segmentation is desired, a space and a priority 
number followed by a period may be inserted after the word SECTION) . 
The general term procedure-name may refer to both paragraph-names and 
section- names . 

The Procedure Division may contain both declaratives and procedures. 

Declarative sections must be grouped at the beginning of the 
Procedure Division, preceded by the key word DECLARATIVES followed by a 
period and a space. Declarative sections are concluded by the key words 
END DECLARATIVES followed by a period and a space. (For a more complete 
discussion of declarative sections, see "Declaratives.") 

A procedure is composed of a paragraph or group of successive 
paragraphs, or a section or group of successive sections within the 
Procedure Division. Paragraphs need not be grouped into sections. 

If sections are used within the Procedure Division, a section header 
should immediately follow the Procedure Division header, except when a 
declarative section is included, in which case the section header should 
immediately follow END DECLARATIVES. 
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Procedure Division — Structure 



A section ends immediately before the next section-name or at the end 
of the Procedure Division, or, in the Declarative portion of the 
Procedure Division, immediately before the next section- name or at the 
words END DECLARATIVES, where END must appear in Area A. 

If program segmentation is used, the programmer must divide the 
entire Procedure Division into named sections. Program segmentation is 
discussed in "Segmentation." 

Execution begins with the first statement of the Procedure Division, 
excluding declaratives. Statements are then executed in the order in 
which they are presented for compilation, except where the rules in this 
chapter indicate some other order. 



Structure of the Procedure Division 



PROCEDURE DIVISION 



[[DECLARATIVES. 



{section-name SECTION. USE Sentence. 



{paragraph-name. {sentence} ...}...} 
END DECLARATIVES . ] 
{section-name SECTION [priority].] 
{paragraph-name. {sentence} ...}...} 



CATEGORIES OF STATEMENTS 

There are three categories of statements used in COBOL: conditional 
statements, imperative statements, and compiler-directing statements. 

A conditional statement is a statement containing a condition that is 
tested (see "conditions") to determine which of the alternate paths of 
program flow is to be taken. 

An imperative statement specifies that an unconditional action is to 
be taken by an object program. An imperative statement may also consist 
of a series of imperative statements. 

A compiler-directing statement directs the compiler to take certain 
actions at compile time. 
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statement Cateaories 



CONDITIONAL STATEMENTS 



COBOL Statements used as conditional statements are: 
IF 



(ON SIZE ERROR) 

(DEPENDING ON) 
(AT END) 

(AT END- OF- PAGE) 
(INVALID KEY) 



ADD 

COMPUTE 

SUBTRACT 

MULTIPLY 

DIVIDE 

GO TO 

READ 

SEARCH 

RETURN 

WRITE 

READ 




PERFORM 
SEARCH 



(UNTIL) 
(WHEN) 



The options in parentheses cause otherwise imperative statements to 
be treated as conditionals at execution time. A discussion of these 
options is included as part of the description of the associated 
imperative statement. 



IMPERATIVE STATEMENTS 



COBOL verbs used in imperative statements can be grouped into the 
following categories and subcategories: 



DECLARATIVES 



USE 
PROCEDURAL 

1. Arithmetic 

ADD 

COMPUTE 

DIVIDE 

MULTIPLY 

SUBTRACT 

2. Procedure Branching 

GO TO 

ALTER 

PERFORM 

STOP 

EXIT 

3. Data-Manipulation 

MOVE 
EXAMINE 
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statement Categories 



4. I nput/Output 
OPEN 



SEEK 
READ 
WRITE 



ACCEPT 

DISPLAY 

CLOSE 

5. Report Writer 

GENERATE 
INITIATE 
TERMINATE 

6. Table Handling 

SEARCH 
SET 



7. sort 



SORT 

RETURN 

RELEASE 




I Report Writer, Table Handling, and Sort statements 



Note : 

are discussed in separate chapters. 




COMPILER-DIRECTING STATEMENTS 



COBOL verbs used in compiler-directing statements are: 

COPY 

ENTER 
NOTE 



Note ; The COPY statement is discussed in "Source Program Library 
Facility." ii'|ia||t|^t^^^|ip^|^ feji '"^^law^ll ICcfc 




vi 
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Arithmetic Operators 



ARITHMETIC EXPRESSIONS 



Arithmetic expressions are used as operands of certain conditional 
and arithmetic statements*. 

An arithmetic expression may consist of any of the following: 

1. an identifier described as a numeric elementary item 

2. a numeric literal 

3. identifiers and literals, as defined in items 1 and 2, separated py 
arithmetic operators 

4. two arithmetic expressions, as defined in items 1, 2, and/or 3, 
separated by an arithmetic operator 

5. an arithmetic expression, as defined in items 1, 2, 3, and/or 4, 
enclosed in parentheses 

Any arithmetic expression may be preceded by ^JifeifaaiSj^*<jEiSr a unary -. 



ARITHMETIC OPERATORS 



There are five arithmetic operators that may be used in arithmetic 
expressions. Each is represented by a specific character or character 
combination that must be preceded by a space and followed by a space, 
except that a unary operator must not be preceded b^ ^^_£a(ce when it 
follows a left parenthesis. 



Arithmetic Operat 


:or Meaning 


+ 


addition 


- 


subtraction 


♦ 


multiplication 


/ 


division 


** 


exponentiation 



Parentheses may be used in arithmetic expressions to specify the 
order in which elements are to be evaluated. 

Expressions within parentheses are evaluated first. When expressions 
are contained within a nest of parentheses, evaluation proceeds from the 
least inclusive to the most inclusive set. 

When parentheses are not used, or parenthesized expressions are at 
the same level of inclusiveness, the following hierarchical order is 
implied: 



1^ unary - 




3. * and / 

4. + and - 



When the order of consecutive operations on the same hierarchical 
level is not completely specified by parentheses, the order of operation 
is from left to right. 



Arithmetic Expressions 153 



Arithmetic Symbol Pairs 

Figure 20 shows permissible symbol pairs. A symbol pair in an 
arithmetic expression is the occurrence of two symbols that appear iii 
sequence. 



Second I 
Symbol I 



First 
Symbol 



I Variable | 
I (identifier] 
I or literal) | ♦ / ♦♦ + 




Variable 
(identifier 
or literal) 



*/♦♦+- 



unary - 



p indicates a permissible pairing 

- indicates that the pairing is not permitted 



Figure 20. Permissible Symbol Pairs — Arithmetic Expressions 



Anarithmetic expression may begin only with a left parenthesis, a 
BMHIPI I^ unary -, or a variable, and may end only with a right 
parenthesis or a variable. 



There must be a one-to-one correspondence between left and right 
parentheses of an arithmetic expression. 
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Test Conditions 
CONDITIONS 



A. condition causes the object program to select between alternate 
paths of control depending on the truth value of a test. Conditions are 
used in IF, PERFORM, and SEARCH statements. 

A condition is one of the following: 

• class condition 

• condition-name condition 

• relation condition 

• sign condition 

• switch-status condition 



In addition, there are two constructions that affect the evaluation 
of conditions. These are: 

1. (condition) 

Parentheses may be used to group conditions (see "Compound 
Conditions") . 

2. NOT condition 

The construction — NOT condition — (where condition is one of 
the five conditions listed above) is not permitted if the condition 
itself contains a NOT. 



Conditions may be combined through the use of logical operators to 
form compound conditions (for a full discussion, see "Compound 
Conditions" ) . 



TEST CONDITIONS 

A test condition is an expression that, taken as a whole, may be 
either true or false, depending on the circumstances existing when the 
expression is evaluated. 

There are five types of simple conditions which, when preceded by the 
word IF, constitute one of the five types of tests: class test, 
condition-name test, relation test, sign test, and switch-status test. 

The construction — NOT condition — may be used in any simple test 
condition to make the relation specify the opposite of what it would 
express without the word NOT. For example, NOT (AGE GREATER THAN 21) is 
the opposite of AGE GREATER THAN 21. 

Each of the previously mentioned tests, when used within the IF 
statement, constitutes a conditional statement (see "Conditional 
Statements") . 

Conditions 155 



Class Condition 



Class Condition 



The class test determines whether data is alphabetic or numeric. 



Format 



identifier IS [NOT] 



( NUMERIC \ 

( alphabetic ) 



L J 

The operand being tested must be described implicitly or explicitly 

A numeric data item consists of the digits through 9, with or 
without an operational sign. 

The identifier being tested is determined to be numeric only if the 
contents consist of any combination of the digits through 9. If the 
PICTURE of the identifier being tested does not contain an operational 
sign, the identifier being tested is determined to be numeric only if 
the contents are numeric and an operational sign is not present. If its 
PICTURE does contain an operational sign, the identifier being tested is 
determined to be numeric only if the contents are numeric and a valid 
operational sign is present. Valid operational signs are hexadecimal F, 
C, and D. 
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The NUMERIC test cannot be used with an identifier described as 
alphabetic. 

An alphabetic data item consists of the space character and the 
characters A through Z. 

The identifier being tested is determined to be alphabetic only if 
the contents consist of any combination of the alphabetic characters A 
through Z and the space. 

The ALPHABETIC test cannot be used with an identifier described as 
numeric. 

Figure 21 shows valid forms of the class test. 

r T ■ 1 

I Type of Identifier J Valid Forms of the Class Test | 

J. + ^ ^ 

I Alphabetic | ALPHABETIC | NOT ALPHABETIC | 

|. 1 + ^ 

I Alphanumeric, | ALPHABETIC | NOT ALPHABETIC j 

I Alphanumeric Edited, j NUMERIC | NOT NUMERIC | 

I or Numeric Edited j | | 

j. + + ^ 

I Extej-nal -Decimal | | | 

I fiii^^ll^lgi^M-lgJ. I NUMERIC I NOT NUMERIC j 

L_!!1.''IZ1_1_ L-C . -1. J. ± J 

Figure 21. Valid Forms of the Class Test 
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Condition-name Condition 
Condition- Name Condition 

The condition-name condition causes a conditional variable to be 
tested to determine whether or not its value is equal to one of the 
values associated with condition-name. 



T 

Format I 



=^= _ ^ 

I 
condition-name | 

I 

J 



An example of the use of the condition-name condition follows; 



02 MAEITAL- STATUS PICTURE 9. 
88 SINGLE VALUE 1. 
88 . MARRIED VALUE 2. 
88 DIVORCED VALUE 3. 



MARITAL- STATUS is the conditional variable; SINGLE, MARRIED, and 
DIVORCED are condition-names . Only one of the conditions specified by 
condition- name can be present for individual records in the file. To 
determine the marital status of the individual whose record is being 
processed, IF SINGLE ... can be coded, and its evaluation as true or 
false determines the subsequent path the object program takes. 

A condition-name is used in conditions as an abbreviation for the 
relation condition, since the associated condition- name is equal to only 
one of the values (or ranges of values) assigned to that conditional 
variable. That is, to determine whether the condition SINGLE is 
present, IF MARITAL-STATUS = 1 . . . would have the same effect as using 
the condition-name test IF SINGLE ... 

If the condition-name is associated with a range of values (or with 
several ranges of values) , the conditional variable is tested to 
determine whether or not its value falls within the range (s), including 
the end values. The result of the test is true if one of the values 
corresponding to the condition-name equals the value of its associated 
conditional variable. 

(An example of both group and elementary condition-name entries is 
given in the description of the VALUE clause in "Data Division".) 
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Relation Condition 



Relation condition 



A relation condition causes a comparison of two operands, either of 
which may be an identifier, a literal, or an arithmetic expression. 



I Format | 

j. _ ^ 



Tidentif ier-l 

<literal-l 

f arithmetic- expression-1 



relational-operator 



Tidentif ier-2 

<jliteral-2 

(arithmetic- expression- 2 



L J 



The first operand is called the subject of the condition; the second 
operand is called the object of the condition. 



The subject and object may not both be literals . 



The subject and object must have the same USAGE, except when two 
numeric operands are compared. 

A relational-operator specifies the type of comparison to be made in 
a relation condition. The meaning of the relational operators is shown 
in Figure 22. 



j Relational-operator 
|. 



Meaning 



I IS [NOT] GR£AT.ER THAN | Greater than or not greater than 
IIS [NOT] > I 



IS [ NOT ] LESS THAN 
IS [NOT] < 



I Less than or not less than 



I- 



Equal to or not equal to 



lis [NOT] EQUAL TO 

I IS [NOT] = I 

L X 

Figure 22. Relational-operators and Their Meanings 



The word TO in the EQUAL TO relational operator is required 



The relational-operator must be preceded by, and followed by, a 
space. 
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Relation Condition 

COMPARISON OF NUiVIERIC OP£Rft.NDS : For operands whose class is numeric, a 
comparison is made with respect to the algebraic value of the operands. 

Zero is considered a unique value, regardless of sign. 

Comparison of numeric operands is permitted regardless of the manner 
in which their USA.GE is described. 

Unsigned numeric operands are considered positive for purposes of 
comparison. 



COMPARISON OF NOiSliquMERic OPiaRA.NDS : h'uL nOiiiiuutea?ic operands, or for one 
numeric and one nonnumeric operand, a comparison is made with respect to 
the binary collating sequence of the characters in the EBCDIC set. 



The EBCDIC collating sequence, in ascending order, is: 



1. 




(space) 


2. 


. 


(period or decimal point) 


3. 


< 


("less than" symbol) 


U. 


{ 


(left parenthesis) 


5. 


+ 


(plus sign) 


6. 


$ 


(currency symbol) 


7. 


* 


(asterisk) 


8. 


) 


(right parenthesis) 


9. 


r 


(semicolon) 


10. 


- 


(hyphen or minus symbol) 


11. 


/ 


(stroke, virgule, slash) 


12. 


t 


(comma) 


13. 


> 


("greater than" symbol) 



1 5"! "= " ( equal sign) 
16. " (quotation mark) 

17-42. A thru Z 

h3-52. thru 9 



(The complete EBCDIC collating sequence is given in the publication 
IBM System/360 Reference Data , Order No. X20-1703.) 

If one of the operands is described as numeric, it is treated as 
though it were moved to an alphanumeric data item of the same size and 
the contents of this alphanumeric data item were then compared to the 
nonnumeric operand (see "MOVE Statement"). 



The size of an operand is the total number of characters in the 
operand. 

A.11 group items are treated as nonnumeric operands. 

Numeric and nonnumeric operands may be compared only when their USAGE 
is the same, implicitly or explicitly. 




There are two cases of nonnumeric comparison to consider: operands 
of equal size and operands of unequal size. 
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Relation Condition 

1. Comparison of Operands of Equal Size 

Characters in corresponding character positions of the two operands 
are compared from the high-order end through the low-order end. 
The high-order end is the leftmost position; the low-order end is 
the rightmost character position. 

If all pairs of characters compare equally through the last pair, 
the operands are considered equal when the low-order end is 
reached. 

If a pair of unequal characters is encountered, the two characters 
are compared to determine their relative position in the collating 
sequence. The operand that contains the character higher in the 
collating sequence is considered to be the greater operand. 

2. Comparison of Operands of Unequal Size 

If the operands are of unequal size, comparison proceeds as though 
the shorter operand were extended on the right by a sufficient 
number of spaces to make the operands of equal size. 

COMPARISONS INVOLVING INDEX-NA.MES A.ND/OR INDEX DATA ITEMS ; The 
compari^son of two index-names is equivalent to the comparison of their 
corresponding occurrence numbers. 

In the comparison of an index data item with an index-name or with 
another index data item, the actual values are compared without 
conversion. 

The comparison of an index-name with a numeric item is permitted if 
the numeric item is an integer. The numeric integer is treated as an 
occurrence number. All other comparisons involving an index-name or 
index data item are not allowed. (For a discussion of indexing, see 
"Table Handling.") 

Permissible comparisons are shown in Figure 23. 
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Relation Condition 



j. ^r===^__+__+__+ ^.__| 1 + 4. ^^_^j^,^^a« 



^ +__l__4.__4. ^^.^ ^ 4- 4.^_4. 4,_^^4fH-4|H-4 + 



|. l__+__l__+ — +__4. — 4. — + — + — ^ — ^4_h4I— i*H+--+ — + — 












j. +„+__+__+ — 4__+ — -^ — 4 4 — 4. — 1__4.__|„4__| — 4 — 4 



J. l__+__l__4. — 4__| — + — I — I — 4. — 4.__4__4__4__4 — I 




First Operand 



second Operand | GR | A.L | AN 1 ANE | NE | FC* 
I I I I INNLI 



ZR 
NL 



ED |BI lIO-lSE^l^S'Fa^feltllN 



IDI 



Group (GR) 



NN|NN|NN|NN |NN|NN | NN | NN 



'nN j'NNljl 



li^i 






Alphabetic (AL) 



iNN|NNlNNlNN jNNjNN ] NN INN 



jiNNj jjJMl^ipill 



Alphanumeric (AN) 



NN|NN1NN|NN |NN|NN | NN I NN 



NN|; ijJNl^JNNJ 



Alphanumeric Edited (ANE) 



|NN|NN|NN|NN |NN|NN INN j NN 



jNNi 



NNINNI 



lucneric Edited (NE) 



NNjNNjNNjNN jNNjNN | NN | NN 



NNI 



NNjNNI 



Figurative Constant (FO* & 
Nonnumeric Literal (NNL) 



NN|NN|NN|NN JNN] 
I i 



NN 



{ NN I I NN I NN { 
I L I i i 



Fig. Constant ZERO (ZR) & 
Numeric Literal (NL) 



|NN|NN|NN1NN jNN] 



NU jNU |NU IWUjNUlNNlNUjIOi- 

i I 



External Decimal (ED) 



NN|NN1NN|NN jNNjNN j NU | NU | NU | NU |NU) NU | NN j NU| ID»- 



Binary (BI) 




— ^ 
— -f 
— ^ 



jSiKtMt|fiaa'.^ |Pl|Cfe.t.i|ngi |aoiiiri|t;i ^ (JE3 






I'ljntteBrtai .'Fjioatilrig (E^oint [(\j;F)i ' ) '{Mt < 'I' 1' ^ i1* I I' * i«NO ifNU ^^NU jNU 1NU|HU| |N0| 

Fi — : — f .-t-— — j !— ; fj -T^li — r~~' 



4|-i-4-(i-r^4i-,'--.4-^-i--4" — •+ — '-it — ^4- — + — 4 — + — 4 — 4 — 

sterling {Report (SR), ' I * ^' .||NNJ^WNpi^j|m^ Vi(MNl't|N jjiNN jjNN 'j. j |NN| jNN|NN| 

Sterling Nonreport (SN) , f'. jNN),NNiNNjNiq jjl^iNN i j'nU ,JN0 jNU [NU lNUlNU}NN|NDi 

Index Name (IN) till II | I0^| I0^| lO^jIO^l | | | jio 

j. 4.__4.__l__+ — +__+ — + — 4 — 4 — 4._^^+__4__4__l__4. — 

Index Data Item (IDI) I I I I II I 1 I I I I I I I IV 

i i i X i J. X J. i i X JL X X X 



*FC includes all Figurative Constants except ZERO. 
^Valid only if the numeric item is an integer. 

NN = comparison as described for nonnumeric operands 

NU = comparison as described for numeric operands 

10 = comparison as described for two index-names 

IV = comparison as described for index data items 



Figure 23. Permissible Comparisons 
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Sign/Switch-Status Conditions 
Sign Condition 

The sign condition determines whether or not the algebraic value of a 
numeric operand (i.e., an item described as numeric) is less than, 
greater than, or equal to zero. 



r 1 

I Format | 

j. ^ 

^identifier ) ( POSITIVE ] 

IS [NOT] <^ NEGATIVE 



(arithmetic-expression) ( ZERO 

L J 



An operand is positive if its value is greater than zero, negative if 
its value is less than zero, and zero if its value is equal to zero. An 
unsigned field is positive or zero. 



Switch- Status Condition 

A switch-status condition determines the on or off status of a device 
switch. 

r 1 

I Format | 

|. ^ 

I I 

I condition-name | 

I I 

I J 



The SPECIAL-NAMES paragraph of the Environment Division associates an 
ON or OFF value ( condition-name ) with a switch (function-name) . The 
switch-status condition tests the value associated with the switch. The 
result of the test is true if the switch is set to the position 
corresponding to condition-name. 



COMPOUND CONDITIONS 



Two or more simple conditions can be combined to form a compound 
condition. Each simple condition is separated from the next by one of 
the logical operators AND or OR. 

The logical operators must be preceded by a space and followed by a 
space. The meaning of the logical operators is as follows: 

Logical Operator Meaning 

OR logical inclusive OR, i.e., either or both 

are true 
AND logical conjunction, i.e., both are true 

NOT logical negation 
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Compound Conditions 

Figure 24 shows the relationships between the logical operators and 
simple conditions A and B, where A. and B have the following values: 



Values for Condition A 
True 
False 
True 
False 



Values for Condition B 
True 
True 
False 
False 



r T T T T T T 1 

I A AND B|A OR B | NOT A|NOT (A AND B) | NOT A AND B|NOT (A OR B)|NOT A OR B| 

I True I True | False | False | False | False |True | 
j. + + + ^ + + ^ 

I False I True jTrue |True | True | False |True | 
j. ^ + 4. 1 1 ^ 4 

1 False I True | False] True | False | False ] False j 

I False JFals'e jTrue JTrue [False | True (True j 
L X X X X X X J 

Figure 24. Logical Operators and the Resulting Values upon Evaluation 



EVALUATION RULES 

Logical evaluation begins with the least inclusive pair of 
parentheses and proceeds to the most inclusive. 

If the order of evaluation is not specified by parentheses, the 
expression is evaluated in the following order: 

1. Arithmetic expressions 

2. Relational-operators 

3 . [ NOT ] condition 

4. AND and its surrounding conditions are evaluated first, starting at 
the left of the expression and proceeding to the right. 

5. OR and its surrounding conditions are then evaluated, also 
proceeding from left to right. 



Consider the expression: 



A IS NOT GREATER THAN B OR A + B IS EQUAL TO C AND D IS POSITIVE 



This will be evaluated as if it were parenthesized as follows: 



(A IS NOT GREATER THAN B) OR ( ( (A + B) IS EQUAL TO C) AND {D IS 
POSITIVE) ) . 



Conditions 163 



Compound Conditions 

The order of evaluation is as follows : 

1. (A + B) is evaluated, giving some intermediate result, for example, 

X. 

2. (A IS NOT GREATER THAN B) is evaluated, giving some intermediate 
truth value, for example, tl. 

3. (x IS EQUAL TO C) is evaluated, giving some intermediate truth 
value, for example, t2. 

4. (D IS POSITIVE) is evaluated, giving some intermediate truth value, 
for example, t3. 

5. (t2 AND t3) is evaluated, giving some intermediate truth value, for 
example, t4. 

6. (tl OR t4) is evaluated, giving the final truth value, and the 
result of the expression. 

Figure 25 shows permissible symbol pairs. A symbol pair in a 
compound condition is the occurrence of two symbols appearing in 
sequence. 



First 
Symbol 

I- 

Condition 

OR 
I- 



T- 

Secondl 
Symbol I 



Condition j OR j AND 



NOT 



I P 



IP IP 






P 

+ ^ 



AND 



NOT 



p indicates a permissible pairing 

- indicates that the pairing is not permitted 



Figure 25. Permissible Symbol Pairs — Compound conditions 



IMPLIED SUBJECTS AND RELATIONAL- OPERATORS 



When relation conditions are written in a consecutive sequence, any 
relation condition except the first may be abbreviated by: 

1. The omission of the subject of the relation condition, or 

2. The omission of the subject and relational-operator of the relation 
condition. 

Within a sequence of relation conditions, both forms of abbreviation may 
be used. The effect of using such abbreviations is as if the omitted 
subject was taken from the most recently stated subject, or the omitted 
relational-operator was taken from the most recently stated relational- 
operator. 
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Compound Conditions 

r 1 

I Format of Implied Subject: | 

|. _ ^ 

I I 

I ...subject relational- operator object | 

I I 

[NOT] relational-operator object. . . 
[OR " 

L J 

r •" ' 1 

I Format of Implied Subject and Relational-operator: | 

|. ^ 

i I 

|... subject relational-operator object J \ [NOT] object... | 
I (OR ) I 

I I 

L J 

Ambiguity may result from using NOT in conjxinction with 
abbreviations. When only the subject is implied, NOT is interpreted as 
a logical operator rather than as part of the relational operator. For 
example, A NOT > B AND < C is equivalent to A NOT > B AND A < C. When 
both the subject and the relational operator are implied, NOT is 
interpreted as part of the relational operator. For example, A NOT > B 
AND C is equivalent to A NOT > B AND A NOT > C. 

The following are examples of implied subjects , and relational- 
operators . Each example consists of two equivalent statements: 

Implied - Subject 

A = B OR NOT > C (The subject. A, is implied.) 

A = B OR NOT A > C (The subject. A, is explicit.) 

Implied Subject and Relational Operator 

A = B AND C (Subject and relational- operator, A = , are 

implied. ) 
A = B AND A = C (Subject and relational- operator, A = , are 

explicit.) 
A NOT = B AND C (Subject and relational- operator, A NOT =, 

are implied.) 
A NOT = B AND A NOT = C (Subject and relational-operator, A NOT = , 

are explicit.) 

Implied Subject, and Subject and Relational-Operator 

A > B AND NOT < C AND D (Subject, A, is implied in the second condi- 
tion. Subject, A, and relational-operator, 
<, are implied in the third condition. ) 

A > B AND NOT A < C (Subject, A, and relational-operator, <, are 
AND A < D explicit.) 

The omitted subject is taken from the most recently stated subject, 
i.e., A. 

The omitted relational-operator is taken from the most recently 
stated relational-operator, i.e., <. 
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IF Statement 



CONDITIONAL STATEMENTS 



A conditional statement specifies that the truth value of a condition 
is to be determined and that the subsequent action of the object program 
is dependent on this truth value. Conditional statements are listed in 
"Categories of Statements." 

A conditional sentence is a conditional statement optionally preceded 
by an imperative statement, terminated by a period followed by a space. 

Only the IF statement is discussed in this section. Discussion of 
the other conditional statements is included as part of the description 
of the associated imperative statements. 



IF Statement 

The IF statement causes a condition to be evaluated. The subsequent 
action of the object program depends upon whether the condition is true 
or false. 



r 1 

I Format | 

I. ^ 

r'^am (statement- 1 ) ( ELSE ) (statement- 2 ) 

IF condition ^^ ; \ <,,....,._.. .,.,:-.> { > 

(next sentenc e) (S^^HWi) I NEXT SENTENCE ) 

J 



The phrase ELSE^^i^^S NEXT SENTENCE may be omitted if and only if 
it immediately precedes the period for the sentence. 

When an IF statement is executed, the following action is taken: 

1. If the condition is true, the statement immediately following the 
condition or THEN (statement-1) is executed. (If ELSESniH^m is 



omitted, then all imperative statements following the condition and 
preceding the period for the sentence are considered to be part of 
statement-1.) Control is then passed implicitly to the next 
sentence unless GO TO procedure-name is specified in statement-1. 
If the condition is true and NEXT SENTENCE is written, control 
passes explicitly to the next sentence. 

2. If the condition is false, either the statement following ELSE^g 
li^^H^^ ( statement-2 ) is executed, or, if the ELSE ^^B^^MmP 
option is omitted, the next sentence is executed. If the condition 
is false and NEXT SENTENCE is written following ELSE, control 
passes explicitly to the next sentence. 

When IF statements are not nested, statement-1 and statement-2 must 
represent imperative statements. 
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IF Statement 



NPStPri T1? t5-t-a+-omor»-l-<a 



The presence of one or more IF statements within the initial IF 
statement constitutes a "nested IF statement." 



Statement- 1 and statement- 2 in IF statements may consist of one or 
more imperative statements and/or a conditional statement. If a 
conditional statement appears as statement-1 or as part of statement-1, 
it is said to be nested. Nesting statements is much like specifying 
subordinate arithmetic expressions enclosed in parentheses and combined 
in larger arithmetic expressions. 



IF statements contained within IF statements must be considered as 
paired IF and ELSE combinations, proceeding from left to right. Thus, 
any ELSE encountered must be considered to apply to the immediately 
preceding IF that has not already been paired with an ELSE. 



In the conditional statement in Figure 26, C stands for condition; S 
stands for any number of imperative statements; and the pairing of IF 
and ELSE is shown by the lines connecting them. 



Figure 27 is a flowchart indicating the logical flow of the 
conditional statement in Figure 26. 




al - Statement-1 for IFl (If CI is false, the next sentence is executed, since there is no ELSE for it) 

bl - Statement-1 for IF2 

b2 - Statement-2 for IF2 

cl - Statement-1 for IF3 

c2 - Statement-2 for IF3 

dl - Statement-1 for IF4 (If C4 is false, the next sentence is executed, since there is no ELSE for it) 

el - Statement-1 for IF 5 

e2 - Statement-2 for IF5 



Figure 26. Conditional Statements with Nested IF Statements 
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IF Statement 



****A1********* 

* EXECUTION OF * 

* IF STATEMENT ♦ 

* BEGINS * 



*****C1*** ******* 



4:t*4<4<************ 



. *• 

Dl *, +**++d2********** 

k *, * * 

*. FALSE * 



C2 



->+ 



St 



^,^:^:^:tHH:^:^:l/^*^,i,t^:^:iL 



El *. ***+*E2****+***** 

'*. FALSE * * 



tt:***** ********** 



*****F1* ********* 

* * 

* * 

* S2 + 

* * 

* + 
***************** 



*****EIJ ********** 



* . FALSE 



***************** 



*****fj********** 



***************** 



♦****H1*******+** 

* * 

* * 

* NEXT SENTENCE * 

* * 

* ♦ 
***************** 



Figure 27. Logical Flow of Conditional Statement with Nested IF 
Statements 



168 Part IV — Procedure Division 



Declaratives — General Format 
DECLARATIVES 



The Declaratives Section provides a method of including procedures 
that are invoked nonsynchronously: that is, they are executed not as 
part of the sequential coding written by the programmer, but rather when 
a condition occurs which cannot normally be tested by the programmer. 

Although the system automatically handles checking and creation of 
standard labels and executes error recovery routines in the case of 
input/output errors, additional procedures may be specified by the COBOL 
programmer. The Report Writer feature also uses declarative procedures. 

Since these procedures are executed only when labels of a file are to 
be processed, or at the time an error in reading or writing occurs or 
when a report group is to be produced, they cannot appear in the regular 
sequence of procedural statements. They must be written at the 
beginning of the Procedure Division in a subdivision called 
DECLARATIVES. A group of declarative procedures constitutes a 
declarative section. Related procedures are preceded by a USE sentence 
that specifies their function. A declarative section ends with the 
occurrence of another section- name with a USE sentence or with the words 
END DECLARATIVES. 

The key words DECLARATIVES and END DECLARATIVES must each begin in 
Area A. No other text may appear on the same line. 



r n 

I General Format | 

^ ^ 

PROCEDURE DIVISION . 

DECLARATIVES . 

{section-name SECTION . USE sentence, 
{paragraph-name. {sentence} ... } ... } ... 

END DECLARATIVES . 

L J 



The USE sentence identifies the type of declarative. 

There are three formats of the USE sentence. Each is associated with 
one of the following types of procedures: 

1. Input/output label handling 

2. Input/output error- checking procedures 

3. Report writing procedures 

A USE sentence, when present, must imrnediately follow a section 
header in the Declarative portion of the Procedure Division and must be 
followed by a period followed by a space. The remainder of the section 
must consist of one or more' procedural paragraphs that define the 
procedures to be used. 

The USE sentence itself is never executed, rather it defines the 
conditions for the execution of the USE procedure. 

Declaratives 1&9 



LABEL Declarative 



Format 1 is used to provide user label-handling procedures, 
are two options of Format 1. 



There 



! Format 1 | 

|. ^ 



Option 1 

C BEFORE) 



USE 






(after ) 



> STANDARD [BEGINNING] 



REEL " 

FILE 

UNIT 



[^{ file- name} 
1 OUTPUT 



LABEL PROCEDURE ON ) INPUT 






I-O 



|. ^ 

Option 2 





(BEFORE) 


rREEL' 


USE 


I } STANDARD [ENDING] 


FILE 




(AFTER 1 


UNIT 




({file- name} .. 




] OUTPUT 




LABEL PROCEDURE ON ^ INPUT 





f 1-0 

L J 



When BEFORE is specified, it indicates that nonstandard labels are to 
be processed. Nonstandard labels may be specified only for tape files. 

When AFTER is specified, it indicates that user labels follow 
standard file labels, and are to be processed. 

Note: ASCII considerations for user label-handling procedures are given 
in Appendix E. 

The labels must be listed as data-names in the LABEL RECORDS clause 
in the File Description entry for the file, and must be described as 
level- 01 data items subordinate to the file entry. 

If neither BEGINNING nor ENDING is specified, the designated 
procedures are executed for both beginning and ending labels. 

If UNIT, REEL, or FILE are not included, the designated procedures 
are executed both for REEL or UNIT, whichever is appropriate, and for 
FILE labels. The REEL option is not applicable to mass storage files. 
The UNIT option is not applicable to files in the random access mode 
since only FILE labels are processed in this mode. 

If FILE is specified, the designated procedures are executed at 
beginning-of-file (on first volume) and/or at end-of-file (on last 
volume) only. If REEL or UNIT is specified, the designated procedures 
are executed at beginning-of- volume (on each volume but the first) 
and/or at end-of- volume (on each volume but the last.) Both BEGINNING 
and ENDING label processing is executed if BEGINNING or ENDING has not 
been specified. 
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LABEL Declarative 

The same file-name may appear in different specific arrangements of 
Format 1. However, appearance of a file-name in a USE statement must 
not cause the simultaneous request for execution of more than one USE 
declarative. 

If the file-name option is used, the File Description entry for 
file-name must not specify a LABEL RECORDS ARE OMITTED clause. 

The user label procedures are executed as follows when the OUTPUT, 
INPUT, or I-O options are specified: 

• When OUTPUT is specified, only for files opened as output. 

• When INPUT is specified, only for files opened as input. 

• When 1-0 is specified, only for files opened as I-O. 

The file-name must not represent a sort-file. 

If the INPUT, OUTPUT, or I-O option is specified, and an input, 
output, or input-output file, respectively, is described with a LABEL 
RECORDS ARE OMITTED clause, the USE procedures do not apply. 

The standard system procedures are performed: 

1. Before or after the user's beginning or ending input label check 
procedure is executed. 

2. Before the user's beginning or ending output label is created. 

3. After the user's beginning or ending output label is created, but 
before it is written on tape. 

4. Before or after the user's beginning or ending input-output label 
check procedure is executed. 

Within the procedures of a USE declarative in which the USE sentence 
specifies an option other than file- name , references to common label 
items need not be qualified by a file-name. A common label item is an 
elementary data item that appears in every label record of the program, 
but does not appear in any data record of this program. Such items must 
have identical descriptions and positions within each label record. 

Within a Format 1 declarative section there must be no reference to 
any nondeclarative procedures. Conversely, in the nondeclarative 
portion there must be no reference to procedure-names that appear in the 
declaratives section, except that PERFORM statements may refer to a USE 
procedure, or to procedures associated with it. 

The exit from a Format 1 declarative section is inserted by the 
compiler following the last statement in the section. All logical 
program paths within the section must lead to the exit point. 
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there is another user laoel to check. Hence, there need not be a 

program path that flows through the last statement in the section. 

For nonstandard labelai, the compiler does not know how many labels 

exist. Therefore, the last stiatenlent in the section i must |i|^ rl''> 

executed to terrairiate ^nonsftar^dai^d 'lahell processing. \ \ •. - m i ' ' i"- - 
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No tape marks are written following nonstandard header labels. A 
tape mark is written following the last nonstandard trailer label on 
each reel. 



SAMPLE LABEL DECLARATIVE PROGRAM 



The following program creates two files, one with user labels, the other 
with nonstandard labels. To create the labels, the program contains a 
DECLARATIVES section, with USE procedures for creating both header and 
trailer labels. 



® 

® 

® 
© 



The program illustrates the following items: 

For the two files requiring label creation, the LABEL RECORDS 
clause specifies the data-name option. 

The user labels are created by a USE AFTER BEGINNING/ENDING LABEL 
procedure. 



Two user header labels are to be created 




The nonstandard labels are created by a USE BEFORE BEGINNING/ENDING 
LABEL procedure. 

Label information for the program is taken in part from the input 
file; therefore input records containing the information must be 
read and stored before the output files are opened, and the header 
label procedures invoked. 
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IDENTIFICATION DIVISION. 
PROGRAM- ID. LABELPGM. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE- COMPUTER. IBM-360-F50. 
OBJECT- COMPUTER. IBM-36 0-F50. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT NO-LBL ASSIGN TO SYS010-UT-2400-S. 

SELECT USER ASSIGN TO SYS011-UT-2400-S. 

SELECT NON-STD ASSIGN TO SYS012-UT-2400-S. 
DATA DIVISION. 
FILE SECTION. 
FD NO— LBL 

RECORD CONTAINS 80 CHARACTERS 

DATA RECORDS ARE IN-REC IN-LBL-HIST 

LABEL RECORD IS OMITTED. 
01 IN-REC. 

05 TYPEN PIC X(4). 

88 NSTD VALUE 'NSTD*. 

05 DEPT-ID PIC X(ll). 

05 BIL-PERIOD PIC X(5). 

05 NAME PIC X(20). 

05 AMOUNT PIC 9(6) . 

05 FIL-NAM PIC X(15) . 

05 SECUR-CODE PIC XX. 

05 AREAN PIC 9. 

88 HDR-REC VALUE 9. 

05 ACCT-NUM PIC 9(10). 

05 SER-NUM PIC 9(6). 
01 IN-LBL-HIST. 

05 FILLER PIC X(4) . 

05 FILE-HISTORY PIC X{76) . 
FD USER 

RECORD CONTAINS 80 CHARACTERS 

BLOCK CONTAINS 5 RECORDS 

DATA RECORD IS USR-REC 

LABEL RECORDS ARE USR-LBL USR-LBL-HIST. 
01 USR-LBL. 

05 USR-HDR PIC X(4) . 

05 DEPT-ID PIC X(ll). 

05 USR-REC-CNT PIC 9(8) COMP-3. 

05 BIL-PERIOD PIC X(5). 

05 FILLER PIC X(53). 

05 SECUR-CODE PIC XX. 
01 USR-LBL-HIST. 

05 FILLER PIC X(4). 

05 LBL-HISTORY PIC X(76) . 
01 USR-REC. 

05 TYPEN PIC X(4). 

05 FILLER PIC X(5). 

05 NAME PIC X(20). 

05 FILLER PIC X(4). 

05 ACCT-NUM PIC 9(10). 

05 AMOUNT PIC 9(6) COMP-3. 

05 FILLER PIC X(25). 

05 U-SFQ-NUMB PIC 9(8). 
FD NON-STD 

RECORDING MODE IS U 

DATA RECORDS ARE NSTD-RECl NSTD-REC2 

LABEL RECORD IS NSTD-LBL. 
01 NSTD-LBL. 

05 NSTD-HDR PIC X(7) . 

05 NSTD-REC-CNT PIC 9(8) COMP-3. 

05 FILLER PIC X(3). 

05 FIL-NAM PIC X(15) . 

05 DEPT-ID PIC X(ll). 

05 SER-NUM PIC 9(6). 
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05 CREAT-DATE PIC X(8). 
01 NSTD-RECl. 

05 ACCT-NUM PIC 9(10). 

05 BIL-PERIOD PIC X(5). 

05 NAME PIC X(20). 

05 FILLER PIC X(40). 

05 AREAN PIC 9. 

05 FILLER PIC X(20). 

05 AMOUNT PIC 9(6) CaMP-3. 
01 NSTD-REC2. 

05 ACCT-NUM PIC 9(10). 

05 BIL-PERIOD PIC X(5). 

05 NAME PIC X(20). 

05 FILLER PIC X(15). 

05 DEPT-ID PIC X(ll). 

05 AMOUNT PIC 9(6). 

05 N-SEQ-NUMB PIC 9(8). 

05 AREAN PIC 9. 

05 FILLER PIC X(4). 
WORKING- STORAGE SECTION. 
77 N-REC-NUMB PIC 9(8) VALUE ZERO. 
77 U-REC-NUMB PIC 9(8) VALUE ZERO. 
77 SAV-FIL-NAM PIC X(15). 
77 SAV-DEPT-ID PIC X (11) . 
77 LBL- SWITCH PIC 9 V?\.LUE ZERO. 
77 USER-SWITCH PIC 9 VALUE ZERO. 
77 NSTD-SWITCH PIC 9 VALUE ZERO. 
77 NSTD-REC2-CNT PIC 9(8) VALUE ZERO. 
01 STOR-REC. 

05 DEPT-ID PIC X(ll). 

05 BIL-PERIOD PIC X(5). 

05 SECUR-CODE PIC XX. 
PROCEDURE DIVISION. 



© 



® 
@ 



® 
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DECLARATIVES. 

USR-HDR-LBL SECTION. USE AFTER BEGINNING FILE 
LABEL PROCEDURE ON USER. 

A. IF LBL- SWITCH = 

MOVE SPACES TO USR-LBL 
MOVE ZEROES TO USR-REC-CNT 
MOVE 'UHLl' TO USR-HDR 

MOVE CORRESPONDING STOR-REC TO USR-LBL 
ADD 1 TO LBL- SWITCH GO TO MORE- LABELS 
ELSE MOVE •UHL2" TO USR-HDR 

MOVE FILE-HISTORY TO LBL-HISTORY. 
USR-TRLR-LBL SECTION. USE AFTER ENDING FILE 
LABEL PROCEDURE ON USER. 

B. MOVE SPACES TO USR-LBL. 
MOVE 'UTLl' TO USR-HDR. 

MOVE SAV-DEPT-ID TO DEPT-ID IN USR-LBL. 
MOVE U-REC-NUMB TO USR-REC-CNT, 
NSTD-HDR-LBL SECTION. USE BEFORE BEGINNING FILE 
LABEL PROCEDURE ON NON-STD. 

C. MOVE 'NSTHDRl' TO NSTD-HDR. 
MOVE ZEROES TO NSTD-REC-CNT 

MOVE CORRESPONDING IN-REC TO NSTD-LBL. 
MOVE CURRENT-DATE TO CREAT-DATE. 
MOVE FIL-NAM OF IN-RFC TO SAV-FIL-NAM. 
NSTD-TRLR-LBL SECTION. USE BEFORE ENDING FILE 
LABEL PROCEDURE ON NON-STD. 

D. MOVE SPACES TO NSTD-LBL. 
MOVE 'NSTEOF ' TO NSTD-HDR. 
MOVE N-REC-NUMB TO NSTD-REC-CNT. 

MOVE SAV-FIL-NAM TO FIL-NAM IN NSTD-LBL. 
END DECLARATIVES. 

NON- DECLARATIVE SECTION. 
OPEN INPUT NO- LBL. 
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ERROR Declarative 
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READ-IN. 

READ NO-LBL AT END GO TO END-JOB. 
E. IF NSTD NEXT SENTENCE 

ELSE GO TO PROCESS-USER. 
IF NSTD-SWITCH = 1 NEXT SENTENCE 
ELSE ADD 1 TO NSTD-SWITCH 
OPEN OUTPUT NON-STD 
(J) GO TO READ-IN. 

ADD 1 TO N-REC-NUMB. 
IF HDR-REC MOVE SPACES TO NSTD-RECl 

MOVE CORRESPONDING IN-REC TO NSTD-RECl 
WRITE NSTD-RECl 
ELSE ADD 1 TO NSTD-REC2-CNT 

MOVE SPACES TO NSTD-REC2 

MOVE CORRESPONDING IN-REC TO NSTD-REC2 
MOVE NSTD-REC2-CNT TO N-SEQ-NUMB 
WRITE NSTD-REC2. 
GO TO READ- IN. 
PROCESS-USER. 

IF USER- SWITCH = 1 NEXT SENTENCE 
ELSE ADD 1 TO USER-SWITCH 

MOVE CORRESPONDING IN-REC TO STOR-REC 
MOVE DEPT-ID OF IN-REC TO SAV-DEPT-ID 
PERFORM READ- IN 

OPEN OUTPUT USER 
GO TO READ-IN. 
ADD 1 TO U-REC-NUM3. 

MOVE CORRESPONDING IN-REC TO USR-REC. 
MOVE U-REC-NUMB TO U-SEQ-NUMB 
WRITE USR-REC 
GO TO READ-IN. 
END-JOB. 

CLOSE NO-LBL. 

IF USER-SWITCH = 1 CLOSE USER. 
IF NSTD-SWITCH = 1 CLOSE NON-STD. 
STOP RUN. 



A Format 2 USE sentence specifies procedures to be followed if an 
input/output error occurs during file processing. 



r 1 

I Format 2 | 

j. ^ 

USE AFTER STANDARD ERROR PROCEDURE 

{ f ile-name- 1 } . . . 

ON /INPUT 
) OUTPUT 



I-O 



When Format 2 is used, automatic system error routines are executed 
before user-specified procedures. 

USE declaratives which specify error handling procedures are 
activated when an input/output error occurs during execution of a READ, 
WRITE,- ^to,JRlB,,' pr &mSLT Statement. 



Within the section, the file associated with the USE sentence may not 
be referred to by an OPEN, t^|^||ij; SEEK, READ, WRITE, or lesSKI^rE 
statement. 
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ERROR Declarative 

Within a USE procedure there must be no reference to nondeclarative 
procedures except when an exit is taken with a GO TO statement. 
Conversely, in the nondeclarative portion, there must be no reference to 
procedure-names that appear in the declaratives portion, except that 
PERFORM statements may refer to a USE declarative, or to procedures 
associated with such a declarative. 

When either the f ile-name-1 or f ile-iiame~'2 option is used, user error 
handling procedures are executed for input/output errors occurring 
during execution of a READ, WRITE ^ REWRITE, or STIffiT statement for that 
file only. 

A file-name must not be referred to, implicitly or explicitly, in 
more than one Format 2 USE sentence. 

The user error procedures are executed when the INPUT, OUTPUT, or 1-0 
options are specified and an input/output error occurs, as follows: 

• When INPUT is specified, only for files opened as INPUT. 

• When OUTPUT is specified, only for files opened as OUTPUT. 

• When I-O is specified, only for files opened as I-Q (input-output). 



When the GIVING option is used, data-name- 1 will be set to reflect 
the error condition that caused the error declarative to be entered. A 
value of 1 in an error byte indicates that its corresponding error 
condition has occurred. Individual bytes will correspond to specific 
error conditions depending on the type of file being processed as shown 
in Figure 28. 

The GIVING option must not be specified for files on unit record 
devices. 







Wrong length 
record 



Prime data 
full 

Cylinder index 
too small 

Master index 
too small 



Overflow area 
full 

No EOF recoird 
written in prime j 
data area 

} 8 I - I 



Wrong length 
record 



No room 
found 

Data check in 
key or data 



Wrong length 
record 






Figure 28. Error Byte Meaning for the GIVING Option of an Error 
Declarative 



Data-^name-l must be a.u 8~byi;e external-decimal item* It must be 
defined in the workieg-StojcagehS^ction. 
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ERROR/BEFORE REPORTING Declarative 



Data- name- 2 , if sp^Ki^if ied, will contain the blioyck iiri error i 
if no data was transmitted) . Data-naifle-2 ft^ill "contaiii ^awe ph 
error only when tiie error occurs during a I^'EADop^ratliob,., . : 

' ' M > 
Data- name- 2 must be large enough to hold the l^rg'ds^ti Iphj^sidaill 
that exists or will be written on file-narae-2. It must be defirieaS jj^i^i, 
the Working-Storage or Linkage Section.. If data-naiae-2 is de^ii^d l4n' [ | 
the Linkage Section, the block in error is referenced ih the buffjer 
area; no storage need be defined for the error block. > 'Ml'- 




An exit from this type of declarative section can be effected by 
executing the last statement in the section (normal return) ^^rlhl^iiJ 
of a GO ' TO statement . Figure 29 summarizes the facilities and 
limitations associated with each file-processing technique when an error 
occurs . 



The normal return from an error declarative is to the statement 
following the input/output statement that caused the error. 



A. Format 3 USE sentence specifies Procedure Division statements that 
are executed just before a report group named in the Report Section of 
the Data Division is produced (see "Report Writer"). 



r 1 

i Format 3 | 

1^ ^ 

I I 

I USE BEFORE REPORTING data-name. | 

I I 

L J 
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T T 

Type of 

I/O 
Statement 



Access 



Organi- 
zation 



+- 



Error } 

Bytes I Normal Return 



Error Declarative Written 



GO TO Exit 



T 1 

No Error | 
Declarative j 
ii/ritten 



-+- 



SEQUEN- 
TIAL 
(or not 
speci- 
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READ 



1 or 2 I Continued process- 1 User limited to 
|ing of file per- [CLOSE for file 
jmitted; bad block j 
I is bypassed j 



Diagnostic j 
error message | 
is printed; | 
job is j 
terminated \ 



Direct 



WRITE 



READ 



I or 2 I Continued process- 
I ing of file per- 
jmitted; bad block 
; I has been written 

1,2, or j User limited to 
H I CLOSE for file 



I Continued process- 
jing of file per- 
jmitted; bad block 
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RANDOM 



Direct 



READ 



1,2, or I Continued process- 

14 I ing of file per- 
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I has not been by- 

I passed 

____ + 



I User limited to 

I CLOSE for file 
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WRITE 
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I 



REWRITE 



1 
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Figure 29. File Processing Techniques and Associated Error Declaratives Capabilities 
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CORRESPONDING/GIVING/ROUNDED Options 
ARITHMETIC STATEMENTS 



The arithmetic statements are used for computations. Individual 
operations are specified by the ADD, SUBTRACT, MULTIPLY, and DIVIDE 
statements. These operations can be combined symbolically in a formula, 
using the COMPUTE statement. 

Because there are several options common to the arithmetic state- 
ments, their discussion precedes individual statement descriptions. 



CORRESPO NDING Option 

The CORRESPONDING option enables computations to be performed on 
elementary items of the same name simply by specifying the group item to 
which they belong. The word CORRESPONDING may be abbreviated as CORR. 

Both identifiers following CORRESPONDING must refer to group items. 
For the purposes of this discussion, these identifiers will be called d^ 
and 6.2* 

Elementary data items from each group are considered CORRESPONDING 
when both data items have the same name and qualification, up to but not 
including d^ and da- 

Neither d^. nor da may be a data item with level number 66, 77, or 88, 
nor may either be described with the USAGE IS INDEX clause. Neither d^ 
nor da may be a FILLER item. 

Each data item subordinate to d^ or da that is described with a 

REDEFINES, RENAMES, OCCURS, or USAGE IS INDEX clause is ignored; any 

items subordinate to such data items are also ignored. However, d^^ or 

da may themselves be described with REDEFINES or OCCURS clauses , or be 
subordinate to items described with REDEFINES or OCCURS clauses. 



Each FILLER item subordinate to d^ or da is ignored. iBfcmk'i^J,, p^. 



GIVING Option 

If the GIVING option is specified, the value of the identifier that 
follows the word GIVING is set equal to the calculated result of the 
arithmetic operation. This identifier, since not itself involved in the 
computation, may be a numeric edited item. 



ROUNDED Option 

After decimal point alignment, the number of places in the fraction 
of the result of an arithmetic operation is compared with the number of 
places provided for the fraction of the resultant identifier. 
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SIZE ERROR Option/Overlapping Operands 

When the size of the fractional result exceeds the number of places 
provided for its storage, truncation occurs unless ROUNDED is specified. 
When ROUNDED is specified, the least significant digit of the resultant 
identifier has its value increased by 1 whenever the most significant 
digit of the excess is greater than or equal to 5. 

When the resultant identifier is described by a PICTURE clause 
containing P's and when the number of places in the calculated result 
exceeds this size, rounding or truncation occurs relative to the 
rightmost integer position for which storage is allocated. 




SIZE ERROR Option 



If, after decimal point alignment, the value of a result exceeds the 
largest value that can be contained in the associated resultant 
identifier, a size error condition exists. Division by zero always 
causes a size error condition. The size error condition applies only to 
the final results of an arithmetic operation and does not apply to 
intermediate results. If the ROUNDED option is specified, rounding 
takes place before checking for size error. When such a size error 
condition occurs, the subsequent action depends on whether or not the 
SIZE ERROR option is specified. 

If the SIZE ERROR option is not specified and a size error condition 
occurs, the value of the resultant identifier affected may be 
unpredictable . 

If the SIZE ERROR option is specified and a size error condition 
occurs, the value of the resultant identifier affected by the size error 
is not altered. After completion of the execution of the arithmetic 
operation, the imperative statement in the SIZE ERROR option is 
executed. 



Overlapping Operands 



When the sending and receiving operands of an arithmetic statement or 
a MOVE statement share a part of their storage (that is, when the 
operands overlap) , the result of the execution of such a statement is 
unpredictable . 
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ADD Statement 



The ADD statement causes two or more numeric operands to be summed 
and the result to be stored. 



Format 1 



i ftiJ^ 



fidentif ier-lj 
aiteral-l ' 



identifier- 2' 
literal-2 



TO identifier-m [ROUNDED] • 



[identifier-n [ROUNDED]] — [ON SIZE ERROR imperative-statement] 



Format 2 



(identifier-lj (identifier- 2 



ADD 



^literal-1 



literal-2 



identifier- 3" 
literal- 3 



I GIVING identifier-m [ ROUNDED ] [ON SIZE ERROR imperative-statement] j 
I I 



Format 3 



I ADD 



CORR 






identifier-1 TO identifier- 2 



^CORRESPONDING' 



[ ROUNDED ] [ON SIZE ERROR imperative-Statement] 



Format 1 -- the values of the operands preceding the word TO are 
added together, and the sum is added to the current value of 
identifier-m ( identifier-n ) , etc. The result is stored in identifier-m 
(identifier-n) , etc. 

Format 2 — when the GIVING option is used, there must be at least 
two operands preceding the word GIVING. The values of these operands 
are added together, and the sum is stored as the new value of 
identifier-m . 

In Formats 1 and 2 each identifier must refer to an elementary 
numeric item, with the exception of identifiers appearing to the right 
of the word GIVING. These may refer to numeric edited data items. 

Each literal must be a numeric literal. 

The maximum size of each operand is 18 decimal digits. The maximum 
size of the resulting sum, after decimal point alignment, is 18 decimal 
digits. 

Format 3 — when the CORRESPONDING option is used, elementary data 
items within identifier-1 are added to and stored in corresponding 
elementary data items within identif ier-2 . Identifier-1 and 
identifier-2 must be group items. 



Arithmetic Statements 181 



COMPUTE Statement 

When ON SIZE ERROR is used in conjunction with CORRESPONDING, the 
size error test is made only after the completion of all the ADD 
operations. If any of the additions produces a size error condition, 
the resultant field for that addition remains unchanged, and the 
imperative statement specified in the SIZE ERROR option is executed. 



COMPUTE Statement 



The COMPUTE statement assigns to a data item the value of a data 
item, literal, or arithmetic expression. 



r — 

1 
1 


Format 


1 

L — 


(identifier-2 ) 
COMPUTE identifier-1 [ROUNDED] = jliteral-1 J 

'arithmetic-expression' 

[ON SIZE ERROR imperative-Statement] 



Literal-1 must be a numeric literal. 

Identifier- 2 must refer to an elementary numeric item. Identifier-1 
may describe a numeric edited data item. 

The identifier- 2 and literal-1 options provide a method for setting 
the value of identifier-1 equal to the value of identifier- 2 or 
literal-1. 

The arithmetic-expression option permits the use of a meaningful 
combination of identifiers, numeric literals, and arithmetic operators. 
Hence, the user can combine arithmetic operations without the 
restrictions imposed by the arithmetic statements ADD, SUBTRACT, 
MULTIPLY, and DIVIDE. 

As in all arithmetic statements, the maximum size of each operand is 
18 decimal digits. 
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DIVIDE Statement 



The DIVIDE statement is used to find the quotient resulting from the 
division of one data item into another data item. 



Format 1 



DIVIDE 



ixdentif ler— 1 
/literal-1 



INTO identifier-2 [ROUNDED] 



[ON SIZE ERROR imperative-statement] 



DIVIDE 



Format 2 



(identifier-ly (INTO) ^identifier-2 



GIVING identifier-3 



aiteral-1 ^ (BY J aiteral-2 
[ ROUNDED ] [REMAINDER identif ier-4] 
[ON SIZE ERROR imperative-Statement] 

L J 



When Format 1 is used, the value of identif ier-1 (or literal-1 ) is 
divided into the value of identifier-2 . The value of the dividend 
(identifier-2) is replaced by the value of the quotient. 

When Format 2 is used, the value of identifier-1 (or literal-1 ) is 
divided into or by identifier-2 (or literal-2 ) , the quotient is stored 
in identifier-3 , and the remainder optionally is stored in identif ier-U . 

A remainder is defined as the result of subtracting the product of. 
the quotient and the divisor from the dividend. 



If the ROUNDED "option is also specified, the quotient is rounded 
after the remainder is determined. 

Each identifier must refer to an elementary numeric item except the 
identifier following the word GIVING, which may be a numeric edited 
item. 

Each literal must be a numeric literal. 

The maximum size of the resulting quotient, after decimal point 
alignment, is 18 decimal digits. The maximum size of the resulting 
remainder (if specified), after decimal point alignment, is 18 decimal 
digits. 

Division by zero always results in a size error condition. 
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MULTIPLY Statement 



MULTIPLY Statement 



The MULTIPLY Statement is used to multiply one data item by another 
data item. 



Format 1 



fidentif ier-1) 
MULTIPLY j 1- BY identifier-2 [ROUNDED] 

fliteral-l 



[ON SIZE ERROR imperative-Statement] 



Format 2 



(identifier- 1 



MULTIPLY 



(identifier-2 



BY 



GIVING identifier- 3 



'literal-1 * 'literal-2 
[ ROUNDED ] [ON SIZE ERROR imperative-Statement] 

L J 



When Format 1 is used, the value of identif ier-1 (or literal-1 ) is 
multiplied by the value of identifier-2 . The value of the multiplier 
(identifier-2) is replaced by the product. 

When Format 2 is used, the value of identifier-1 (or literal-1 ) is 
multiplied by identifier-2 (or literal-2 ) , and the product is stored in 
identif ier-3 . 

Each identifier must refer to an elementary numeric item except the 
identifier following the word GIVING, which may be a numeric edited 
item. 

Each literal must be a numeric literal. 

The maximum size of each operand is 18 decimal digits. The maximum 
size of the resulting product, after decimal point alignment, is 18 
decimal digits. 
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SUBTRACT Statement 



SUBTRACT Statement 



The SUBTRACT statement is used to subtract one, or the sum of two or 
more, numeric data items from another data item(s) . 



Format 1 



SUBTRACT 



^identifier- 1) ridentif ier-2- 
aiteral-1 ' L 



aiteral-1 ' Lliteral-2 
FROM identifier-m [ ROUNDED ] 
[identifier-n [ ROUNDED ] 3 [ON SIZE ERROR imperative-statement] 



SUBTRACT 



FROM 



Format 2 

(identifier- 1) ridentif ier- 21 
aiteral-l ) Lliteral-2 



(identifier-m^ 

] [ GIVING identifier-n 

'literal-m ' 



[ ROUNDED ] [ON SIZE ERROR imperative- Statement] 

L J 



Format 3 



;CORR 



SUBTRACT 



I identi 



fier-1 FROM identifier- 2 



(CORRESPONDING) 



[ ROUNDED ] [ON SIZE ERROR imperative-Statement] 



Format 1 — all literals or identifiers preceding the word FROM are 
added together, and this total is subtracted from identifier-m and 
identifier-n (if stated) , etc. The result of the subtraction is stored 
as the new value of identifier-m, identifier-n, etc. 

Format- 2 — all literals or identifiers preceding the word FROM are 
added together, and this total is subtracted from literal-m or 
identifier-m . The result of the subtraction is stored as the value of 
identifier-n . 

Format 3 — data items in identifier-1 are subtracted from, and the 
difference stored into corresponding data items in identif ier-2 . When 
the CORRESPONDING option is used in conjunction with ON SIZE ERROR and 
an ON SIZE ERROR condition arises, the result for SUBTRACT is analogous 
to that for ADD. 
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SUBTRACT Statement 

Each identifier must refer to an elementary numeric item except the 
identifier following the word GIVING, which may be a numeric edited 
item. 

Each literal must be a numeric literal. 

The maximum size of each operand is 18 decimal digits. The maximum 
size of the resulting difference, after decimal point alignment, is 18 
decimal digits . 
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GO TO Statement 
PROCEDURE BRANCHING STATEMENTS 



Statements, sentences, and paragraphs in the Procedure Division are 
ordinarily executed sequentially. The procedure branching statements 
(GO TO, ALTER, PERFORM, STOP, and EXIT) allow alterations in the 
sequence. 



GO TO Statement 

The GO TO statement allows a transfer from one part of the program to 
another. 



r 1 

I Format 1 | 

|. ^ 

i I 

I GO TO procedure-name-1 | 

I I 

L J 

r 1 

I Format 2 | 

|. ^ 

I I 

I GO TO procedure-name-1 [procedure-name- 2] ... | 

I I 

I DEPENDING ON identifier | 

I I 

L J 

I Format 3 | 

j. ^ 

I I 

I GO TO. I 

I • I 

L J 



When Format 1 is specified, control is passed to procedure-name- 1 or 
to another procedure name if the GO TO statement has been changed by an 
ALTER statement. (If the latter is the case, the GO TO statement must 
have a paragraph name, and the GO TO statement must be the only 
statement in the paragraph. ) 

If a GO TO statement represented by Format 1 appears in an imperative 
sentence, it must appear as the only or last statement in a sequence of 
imperative statements. 

When Format 2 is used, control is transferred to one of a series of 
procedures, depending on the value of the identifier . When identifier 
has a value of 1, control is passed to procedure-name-1 ; a value of 2 
causes control to be passed to procedure-name- 2 , . . . ; a value of n 
causes control to be passed to procedure-name-n. For the GO TO 
statement to have effect, identifier must represent a positive or 

unsigned integer, i.e., 1, 2, , n. If the value of the identifier is 

anything other than a value within the range 1 through n, the GO TO 
statement is ignored. The number of procedure-names must not exceed 
2031. 
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ALTER Statement 

Identifier is the name of a numeric elementary item described as an 
integer. Its PICTURE must be of four digits or less. Its USAGE must be 
DISPLAY, COMPUTATIONAL, pT CdMptKPATXONAL-3 . 

When Format 3 is used, an ALTER statement, referring to the GO TO 
statement, must have been executed prior to the execution of the GO TO 
statement. The GO TO statement must immediately follow a paragraph name 
and must be the only statement in the paragraph. 

ALTER Statement 

The ALTER statement is used to change the transfer point specified in 
a GO TO statement. 



r 1 

I Format | 

|. ^ 

ALTER procedure-name-1 TO [ PROCEED TO ] procedure-name-2 

[procedure-name- 3 TO [ PROCEE D TO] procedure-name-4] 

L J 



Procedure-name- 1 , procedure-name- 3 , etc. , must be the names of 
paragraphs that contain only one sentence consisting of a GO TO 
statement without the DEPENDING option. 

Procedure-name- 2 , procedure-name- 4 , etc., must be the names of 
paragraphs or sections in the Procedure Division. 

The effect of the ALTER statement is to replace the procedure-name 
operands of the GO TO statements with procedure-name-2 , 

procedure-name-tt , etc., of the ALTER statement, where the paragraph- name 
containing the GO TO statement is procedure-name-1 , procedure-natne-3 , 
etc . For example : 

PARAGRAPH-1. 

GO TO BYPASS-PARAGRAPH. 
PARAGRAPH-IA. 



BYPASS- PARAGRAPH . 



ALTER PARAGRAPH-1 TO PROCEED TO PARAGRAPH- 2. 



PARAGRAPH- 2. 



Before the ALTER statement is executed, when control reaches 
PARAGRAPH-1, the GO TO statement transfers control to BYPASS -PARAGRAPH. 
After execution of the ALTER statement, however, when control reaches 
PARAGRAPH-1, the GO TO statement transfers control to PARAGRAPH-2. 

Segmentation Information ; A GO TO statement in a section whose 
priority is greater than oiF equal to 50 must not be referred to by an 
ALTER statement in a section with a different priority. All other uses 
of the ALTER statement are valid and are performed even if the GO TO to 
which the ALTER refers is in an overlayable fixed segment (see 
"Segmentation") . 
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PERFORM Statement 



The PERFORM statement is used to depart from the normal sequence of 
procedures in order to execute a statement, or a series of statements, a 
specified number of times; or until a predetermined condition is 
satisfied. After the statements are executed, control is returned to 
the statement- after the PERFORM statement. 



Format 1 



PERFORM procedure-name- 1 [ THRU procedure-name- 2] 



Format 2 



PERFORM procedure-name- 1 [ THRU procedure-name- 2] 
(identif ier-1) 
'integer-1 * 



TIMES 



Format 3 



PERFORM procedure-name-1 [ THRU procedure-name- 2] 
UNTIL condition- 1 



Format 4 



PERFORM procedure-name-1 [ THRU procedure- name- 2] 



!index-name-l) (index- name- 2 
[ FROM ] literal- 2 
identifier-1' 'identifier- 2 

UNTIL condition-1 



BY 



!literal-3 
identifier- 3 

(index-name-4 



[AFTER 



'identifier- 4 



FROM 



index- name- 5 
literal-5 
identif ier-5 



!literal-6 j 
[ UNTIL condition- 2 
identif ier- 6' 

! index- name - 7 ) ix ndex- name- 8 
[ FROM jliteral-8 
identifier-7' (identif ier-8 

UNTIL condition-3]] 



BY 



(literal-9 
'identif ier-9 
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PERFORM Statement 



Each procedure-name must be the name of a section or paragraph in the 
Procedure Division. 

Each identifier represents a numeric elementary item described in the 
Data Division. In Format 2, and Format 4 with the AFTER option, each 
identifier represents a numeric item described as an integer. 




Each literal represents a numeric literal. 

Whenever a PERFORM statement is executed, control is transferred to 
the first statement of the procedure named procedure-name-1 . Control is 
always returned to the statement following the PERFORM statement. The 
point from which this control is passed is determined as follows: 

1. If procedure-name-1 is a paragraph name and procedure-name- 2 is not 
specified, the return is made after the execution of the last 
statement of procedure-name-1. 

2. If procedure-name-1 is a section name and procedure-name-2 is not 
specified, the return is made after the execution of the last 
sentence of the last paragraph in procedure-name-1. 

3. If procedure-name-2 is specified and it is a paragraph name, the 
return is made after the execution of the last statement of that 
paragraph. 

4. If procedure-name-2 is specified and it is a section name, the 
return is made after the execution of the last sentence of the last 
paragraph in the section. 

When both procedure-name -1 and procedure-name- 2 are specified, GO TO 
and PERFORM statements may appear within the sequence of statements 
within these paragraphs or sections. When procedure-name-1 alone is 
specified, PERFORM statements may appear within the procedure. GO TO 
may also appear but may not refer to a procedure-name outside the range 
of procedure-name-1. 

When a PERFORM statement includes within its range of procedures 
another PERFORM statement, this embedded PERFORM statement must have its 
range of procedures either totally included in or totally excluded from 
the range of procedures of the original PERFORM statement. That is, the 
exit point of the original PERFORM statement cannot be contained within 
the range of procedures of the embedded PERFORM statement, 




Control may be passed to a sequence of statements that lies between 
the entry and exit points of a PERFORM statement by means other than a 
PERFORM. In this case, control passes through the last- statement of the 
procedure to the following statement as if no PERFORM statement referred 
to these procedures. 

FORMAT 1 : When Format 1 is used, the procedure (s) referred to are 
executed once, and control returns to the statement following the 
PERFORM statement. 

FORMAT 2 : When Format 2 is used, the procedure (s) are performed the 
number of times specified by identif ier-1 or inteqer-l . Once the TIMES 
option is satisfied, control is transferred to the statement following 
the PERFORM statement. 

The following rules apply to the use of a Format 2 PERFORM statement: 



x^u i^art IV — Procedure Division 



PERFORM Statement 

1. If integer-1 or identifier-1 is zero or a negative number at the 
time the PERFORM statement is initiated, control passes to the 
statement following the PERFORM statement. 

2. Once the PERFORM statement has been initiated, any reference to 
identifier-1 has no effect in varying the number of times the 
procedures are initiated. 

FORMAT 3 : When Format 3 is used, the specified procedures are performed 
until the condition specified by the UNTIL option is true. At this 
time, control is transferred to the statement following the PERFORM 
statement. If the condition is true at the time that the PERFORiyi 
statement is encountered, the specified procedure (s) are not executed. 

FORMAT U : Format 4 is used to augment the value of one or more 
identifiers or index- names during the execution of a PERFORM statement. 

When executing a Format 4 PERFORM statement, the initial values of 
identifier-2 ( index- name- 2 ) and identifier- 5 ( index-name-5 ) must be 
positive in order to conform with the standard, iloweiveri, Minis' ipcwapiler 



J ) , I' .• ^; 1. i { i , 

In the following discussion of Format 4, every reference to 
identif ier-n also refers to index- name-n except when identifier-n is the 
object of the BY option. Also, when index-names are used, the FROM and 
BY clauses have the same effect as in a SET statement (see "Table 
Handling") . 

During execution of the PERFORM statement, reference to index- names 
or identifiers of the FROM option has no effect in altering the number 
of times the procedures are to be executed. changing the value of 
index-names or identifiers of the VARYING option or identifiers of the 
BY option, however, will change the number of times the procedures are 
executed. 

When one identifier is varied , the following is the sequence of 
events : 

1. Identifier-1 is set equal to its starting value, identifier-2 or 
literal-2. 

2. If conditiGn-1 is false, the specified procedure (s) are executed 
once. 

3. The value of identifier-1 is augmented by the specified increment 
or decrement, identif ier-3 or literal-3, and condition-1 is 
evaluated again. 

4. Steps 2 and 3 are repeated, if necessary, until the condition is 
true. When the condition is true, control passes directly to the 
statement following the PERFORM statement. If the condition is 
true for the starting value of identif ier-1, the procedure (s) are 
not executed, and control passes directly to the statement 
following the PERFORM statement. 

Figure 30 is a flowchart illustrating the logic of the PERFORM 
statement when one identifier is varied. 

When^ ,two identifiers are varied , the following is the sequence of 
events: 

1. Identifier-1 and identif ier-4 are set to their initial values, 
identifier-2 (or literal-2) and identif ier-5 (or literal-5) , 
respectively. 

2. Condition-1 is evaluated; if true, control is passed to the 
statement following the PERFORM statement; if false, condition- 2 is 
evaluated. 

Procedure Branching Statements 191 



PERFORM Statement 

3. If condition-2 is false, procedure-natne-1 through procedure-name-2 
(if specified) is executed once. 

4. Identifier-4 is augmented by identifier-6 (or literal-6), and 
condition-2 is evaluated again. 

5. If condition-2 is false, steps 3 and 4 are repeated. 

6. If condition-2 is true, identifier-^ is set to its initial value, 
identif ier-5. 

7. Identifier-1 is augmented by identifier-3 (or literal-3). 

8. Steps 2 through 7 are repeated until condition-1 is true. 

At the termination of the PERFORM statement, if condition-1 was true 
when the PERFORM statement was encountered, identifier-1 and 
identif ier-i* contain their initial values. Otherwise, identifier-1 has 
a value that differs from its last used setting by an increment or 
decrement, as the case may be. 

Figure 31 is a flowchart illustrating the logic of the PERFORM 
statement when two identifiers are varied. 

For three identifiers , the mechanism is the same as for two 
identifiers except that identifier-7 goes through the complete cycle 
each time that identif ier-U is augmented by identifier-6 or literal-6, 
which in turn goes through a complete cycle each time identifier-1 is 
varied. 

Figure 32 is a flowchart illustrating the logic of the PERFORM 
statement when three identifiers are varied. 

SEGMENTATION INFORMATION : A PERFORM Statement appearing in a section 
whose priority is less than the segment limit can have within its range 
only one of the following: 

1. Sections each of which has a priority number less than 50 

2. Sections wholly contained in a single segment whose priority number 
is greater than 49 







A PERFORM statement appearing in a section whose priority number is 
equal to or greater than the segment limit can have within its range 
only one of the following: 

1. Sections each of which has the same priority number as that 
containing the PERFORM statement 

2. Sections with a priority number less than the segment limit 

However, this compiler allows the PERFORM to havB! witliin its range 
sections with any priority numbers. ■ ' * ; ' , 

When a procedure-name in a permanent segment is referred to by a 
PERFORM statement in an independent segment, the independent segment is 
reinitialized upon exit from the performed procedure (see 
"Segmentation" ) . 
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PERFORM Statement 



****p^2** ******* 

* EXECUTION OF * 

* PERFORM STMT ♦ 

* BEGINS * 



+ SET * 

* IDENTIFIER-r * 

* EQUAL TO ITS * 

* FROM VALUE * 

* * 



->+ EXIT * 



+ * 

* EXECUTE * 

* PROCEDURE-1 * 

* THRU * 

* PROCEDURE- 2 ♦ 



♦♦+**g2+**t ****** 

* * 

* AUGMENT * 
-* IDENTIFIER- 1 * 

* WITH ITS BY * 

* VALUE * 
******+*****+**** 



Figure 30. Logical Flow of Option 4 PERFORM Statement Varying One 
Identifier 
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PERFORM Statement 



****A1********* 
+ EXECUTION OF * 

* PERFORM STMT * 

* BEGINS * 



*****B1 ********** 

* * 

* IDENTIFIER-1 * 

* IDENTIFIER-t * 
+SET TO INITIAL * 

* FROM VALUE + 
********+****+*** 



** + * 
» * 
* CI *-> 
» * 

**** 



CI 



*+**C2********* 
* EXIT » 
*************** 



*++**El*++**+*+*+ 

* * 

* EXECUTE * 

* PROCEDDRE-1 * 

* THRU * 

* PROCEDURE- 2 + 
***************** 



*****p]^ ********** 

* » 

* AUGMENT * 
-* IDENTIFIER-t * 

+ VII TH ITS BY * 

* VALUE ♦ 
***************** 



*****£2********** 

* SET * 
*IDENTIFIEE-H TO* 

* ITS INITIAL * 

* FROM VALUE * 

* * 
***************** 



*****F2********** 

* * 

* AUGMENT * 
+ IDENTIFIER-1 * 

♦ WITH ITS BY * 

♦ VALUE * 
***************** 



Figure 31. Logical Flow of Option 4 PERFORM Statement Varying Two 
Identifiers 



1Q/1 
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PERFORM Statement 



****A2 ********* 
* EXECUTION OF * 
► PERFORM STMT * 
f BEGINS * 

*************** 



*****32 ********** 

* IDENTIFIER-1 * 

* IDENTIFIFR-H * 

* IDENTIFIER-? * 
*SET TO INITIAL * 

* FROM VALUES * 
***************** 



***♦ ,* *. 

* * .* TEST * 

* C2 * >*. CONDITION-1 



i***C3* ******** 

* 
EXIT * 

!■****** + *** + ♦** 



*♦** . * *. 

* * .* TEST * 

* D2 * >*. CONDITION-2 



*****F2* ********* 

* * 

* EXECUTE * 

* PROCEDURE- 1 * 

* THRO * 

* PROCEDURE- 2 * 

:^**4:4'************ 



*****G2 ********** 

* * 

* AUGMENT * 
-* IDENTIFIER-7 * 

* WITH ITS BY * 

* VALUE * 
***************** 



V 

4(* + **p3********** 

* SET * 

* IDENTIFIER-7 * 
*T0 ITS INITIAL * 

* FROM VALUE * 

* * 
*+********+*****+ 



* AUGMENT * 

* IDENTIFIER-4 * 

* WITH ITS BY * 

* VALUE * 
***************** 



*****Fit ********** 

* SET * 
*IDENTIFIER-I( TO* 

* ITS INITIAL * 

* FROM VALUE * 

* * 

4i*4<************** 



^****Gli* ********* 

* * 

* AUGMENT * 

* IDENTIFIER-1 * 

* WITH ITS BY * 

* 'VALUE * 
***************** 



Figure 32. Logical Flow of Option 4 PERFORM Statement Varying Three 
Identifiers 
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STOP Statement 



The STOP statement halts the object program either permanently or 
temporarily. 



When the RUN option is used, the execution of the object program is 
terminated, and control is returned to the system. 

If a STOP statement with the RUN option appears in an imperative 
statement, it must appear as the only or last statement in a sequence of 
imperative statements. All files should be closed before a STOP RUN 
statement is issued. 

When the literal option is used, the literal is communicated to the 
operator. The program may be resumed only by operator intervention. 
Continuation of the object program begins with the execution of the next 
statement in sequence. 

The literal may be numeric or nonnumeric, or it may be any figurative 
constant except ALL. 



EXIT Statement 



The EXIT statement provides a common end point for a series of 
procedures. 



r 1 

I Format | 

j. ^ 

I I 

I paragraph-name. EXI T X f>JRg3|5RAIl3 . | 

I I 

L J 



It is sometimes necessary to transfer control to the end point of a 
series of procedures. This is normally done by transferring control to 
the next paragraph or section, but in some cases this does not have the 
required effect. For instance, the point to which control is to be 
transferred may be at the end of a range of procedures governed by a 
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EXIT Statement 

PERFORM or at the end of a declarative section. The EXIT statement is 
provided to enable a procedure-name to be associated with such a point. 

If control reaches an EXIT paragraph and no associated PERFORiyL or USE 
statement is active, control passes through the EXIT point to the first 
sentence of the next paragraph- 

The EXIT statement must be preceded by a paragraph-name and be the 
only statement in the paragraph. 

»|l^ ia|ae" 5BX1T'' ^^tem^t. mlth the '.PROGRliiR .opt,i,oii is -discoss^a in 
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DATA- MANIPULATION STATEMENTS 



Movement and inspection of data are implicit in the functioning of 
several of the COBOL statements. These statements are: MOVE, EXAMINE, 



MOVE Statement 



The MOVE statement is used to transfer data from one area of storage 
to one or more other areas.' 



Format 1 



MOVE 



identif ier-1 



literal 



TO identif ier-2 [identif ier-3] 



Format 2 



MOVE 



CORRESPONDING ) 



CORR 



\ 



identifier-1 TO identifier-2 



FORlVLAT 1 : identifier-1 and literal represent the sending area; 
identifier-2 , identif ier-3 , ... represent the receiving areas. 

The data designated by literal or identifier-1 is moved first to 
identifier-2 , then to ident i f ier- 3 (if specified), etc. 

An index data item cannot appear as an operand of a MOVE statement. 

FORMAT 2 : the CORRESPONDING option is used to transfer data between 
items of the same name simply by specifying the group items to which 
they belong. 

Neither identifier may be a level-66, level-77, or level- 88 data 
item. 

Data items from each group are considered CORRESPONDING when they 
have the same name and qualification, up to but not including 
identifier-1 and identifier-2 . 

At least one of the data items of a pair of matching items must be an 
elementary data item. 

Each subordinate item containing an OCCURS, REDEFINES, USAGE IS 
INDEX, or RENAMES clause is ignored. However, either identifier may 
have a REDEFINES or OCCURS clause in its description or may be 
subordinate to a data item described with these clauses. 
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MOVE Statement 
General Rules Applyi ng to Any MOVE Statement : 

1. Any move in which the sending and receiving items are both elemen- 
tary items is an elementary move- Each elementary item belongs to 
one of the following categories: numeric, alphabetic, 
alphanumeric, numeric edited, or alphanumeric edited (see "PICTURE 
Clause" in "Data Division") . Numeric literals belong to the 
category numeric; nonnumeric literals belong to the category 
alphanumeric . 

2. When an alphanumeric edited, alphanumeric, or alphabetic item is a 
receiving item: 

a. Justification and any necessary filling of unused character 
positions takes place as defined under the JUSTIFIED clause. 
Unused character positions are filled with spaces. 

b. If the size of the sending item is greater than the size of the 
receiving item, the excess characters are truncated after the 
receiving item is filled. 

c. If the sending item has an operational sign, the absolute value 
is used. 

3. When a numeric or numeric edited item is a receiving item: 

a. Alignment by decimal point and any necessary zero filling of 
unused character positions takes place, except when zeros are 
replaced because of editing requirements. 

b. The absolute value of the sending item is used if the receiving 
item has no operational sign. 

c. If the sending item has more digits to the left or right of the 
decimal point than the receiving item can contain, excess 
digits are truncated. 

d. The results at object time may be unpredictable if the sending 
item contains any nonnumeric characters. 

4. Any necessary conversion of data from one form of internal 
representation to another takes place during the move, along with 
any specified editing in the receiving item. 

5. Any move that is not an elementary move is treated exactly as 
though it were an alphanumeric elementary move, except that there 
is no conversion of data from one form of internal representation 
to another. In such a move, the receiving area is filled without 
consideration for the individual elementary or group items 
contained within either the sending or the receiving area. 

6. When the sending and receiving operands of a MOVE statement share a 
part of their storage (that is, when the operands overlap) , the 
result of the execution of such a statement is unpredictable. 

There are certain restrictions on elementary moves. These are shown 
in Figure 33. 
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MOVE Statement 



T T T T 

Receiving Field | | | | 
Source Field ^ — _______^ | GR| AL| A.N|ED 

Group (GR) |Y |Y |Y |Y^ 

Alphabetic (AD |Y jY jY |N 

'Alphanumeric (AN) |Y |Y |Y | Y** 

External Decimal (ED) |Y^|N |Y2|Y 

Binary (BI) |Y^|N | Y^ | Y 

Numeric Edited (NE) |Y |N jY |N 

Alphanumeric Edited (ANE) |Y |Y |Y |N 

ZEROS (numeric or I I I I 

alphanumeric) |Y |N |Y | Y^ 

SPACES (AL) |Y lY |Y |N 

HIGH-VALUE, LOW- VALUE, QUOTES |Y IN |Y |N 

ALL literal |Y |Y |Y | Y^ 

Numeric Literal jY^IN | Y^ | y 

Nonnumeric Literal | Y | Y | Y | Y^ 

Internal Decijraal -^ID) ' |Y=»-|-N jlY^liij 

r '-^ ■ — '~^"~i ;~— ' '"" r — I '"1t—*~t;~'; 

i External |Fioa{tiric|i-ipiaint i(]EE)! ' ; f i I'^^^M IJN [||Y( 

L — — , — — ^— .,. 1 — .■., ,■,, . - —,— —. — — —■ ,■. » .... } ■■. — — — ■ — | — ,■■■ — , — ^— , — ■ — itwK— f .l. ^ — ■ | —ii , . j ,| iii.i b ii l i n ii— ^ iiii(|i.i l i u i.„ i — 

llnterr^al Floa4:i'ngt-^point' *M^M ' ! * IiyNiW Ij^N tJY*! 



t I I I 

IDiEFilFiSKjSRl 

-+—+—+—+— -I 
Y^|Y^jYi|Y^|Yi| 

-+~f— +— I—' I 

N |N |N JN IN I 

• ' ' i J 

T- jr— |-— t- 1 

Y** I Y** i Y^ I Y** j Y* I 

"-- +— +-— i—'^f— ^ 
Y |y |Y \Y JY I 

—+--+—+—+— I 

y |Y |Y |Y |y I 

.■^_^__^ — ^ — .j — .^ 

N |N |N |N |N 1 

—+—+—+— 4—-I 

N |N |N jN jNI 



Sterling Nonrepart (SN) 



-^-H-^-- sf 



+— +— + — + 



+— +— + — + 



f— +- 



+--+--+ — + 



+--+--+ — + 



+--+--+ — f 



+—+--+ — + 
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^Move without conversion (like AN to AN) | 

^Only if the decimal point is at the right of the least significant j 

digit I 

^Numeric move j 

**rhe alphanumeric field is treated as an ED (integer) field j 

^The literal must consist only of numeric characters and is treated as j 

an ED integer field j 

Figure 33. Permissible Moves 
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EXAMINE Statement 
EXAMINE Statement 

The EXAMINE statement is used to count the number of times a 
specified character appears in a data item and/or to replace a character 
with another character. 

r 1 

I Format 1 1 



( UNTIL FIRST ) 
EXAMINE identifier TALLYING J ALL [ literal-1 

' leading ' 

[REPLACING BY literal-2] 

L ._J 



r T 

I Format 2 1 

j. ^ 

ALL 

LEAD ING 
EXAMINE identifier REPLACING ^ FIRST ( literal-1 

, UNTIL FIRST] 

BY literal-2 



In all cases, the description of identifier must be such that its 
usage is display (explicitly or implicitly) . 

When identifier represents a nonnumeric data item, examination starts 
at the leftmost character and proceeds to the right. Each character in 
the data item is examined in turn. , Fxxc p_i^r^«3©es,ia1^,,fe!i© ('jSX|il|lJ^/j^ 
st^'beife'Mi # ■ eSjiftoeanreal .f Acsatii^gr-pcid'iit., i^e^t^' 'apr^l ita:jeaitie|4 as|*pt^o^|i^(Bei?icr d^Wter 
itefRS.. . ' n . [ ' ■ ' < '',''■' i t ; ' ' ' 

When identifier represents a numeric data item, this data item must 
consist of numeric characters, and may possess an operational sign. 
Examination starts at the leftmost character and proceeds to the right. 
Each character is examined in turn. 

If the letter 'S* is used in the PICTURE of the data item description 
to indicate the presence of an operational sign, the sign is ignored by 
the EXAMINE statement. 

Each literal must consist of a single character belonging to a class 
consistent with that of the identifier; in addition, each literal may be 
any figurative constant except ALL. If identifier is numeric, each 
literal must be an unsigned integer or the figurative constant ZERO 
(ZEROES, ZEROS). 

When Format 1 is used, an integral count is created which replaces 
the value of a special register called TALLY, whose implicit description 
is that of an unsigned integer of five digits (see "Language 
Considerations") . 
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EXAMINE Statement 

1- When the ALL option is used, this count represents the number of 
occurrences of literal-1 . 

2. When the LEADING option is used, this count represents the number 
of occurrences of literal-1 prior to encountering a character other 
than literal-1. 



3. When the UNTIL FIRST option is used, this count represents all 
characters encountered before the first occurrence of literal-1, 



Whether Format 2 is used, or the REPLACING option of Format 1, the 
replacement rules are the same. They are as follows: 

1. When the ALL option is used, literal-2 is substituted for each 
occurrence of literal-1 . 

2. When the LEADING option is used, the substitution of literal-2 for 
each occurrence of literal-1 terminates as soon as a character 
other than literal-1 or the right-hand boundary of the data item is 
encountered. 

3. When the UNTIL FIRST option is used, the substitution of literal-2 
terminates as soon as literal-1 or the right-hand boundary of the 
data item is encountered. 

4. When the FIRST option is used, the firgt occurrence of literal-1 is 
replaced by literal-2 . 



Specific EXAMINE statements showing the effect of each statement on 
the associated data item and the TALLY are shown in Figure 3*^. 



r T T T 1 

I I I I Result- 1 

I I I ling I 
I I I (Value I 
I JITEM-I I Data | of | 
I EXAMINE Statement | (Before) | (After) | TALLY | 
j. + + 1 ^ 

1 EXAMINE ITEM-1 TALLYING ALL 1 101010 j 101010 | 3 j 
^ + + + ^ 

I EXAMINE ITEM-1 TALLYING ALL 1 REPLACING BY | 101010 (000000 ( 3 | 
|. + ^ 1 ^ 

(EXAMINE ITEM-1 REPLACING LEADING "*" BY SPACE(**7000 ( 7000 j ■(- ( 

y _ 4. + — , 1 ^ 

(EXAMINE ITEM-1 REPLACING FIRST "*" by "$" j**1.94 ($+1.94 ( -j- ( 
^. X X X ^ 

( -f' unchanged ( 

Figure 34. Examples of Data Examination 
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TmmSFOim statement 



TRANSFORM Statement 



The TRANSFORM statement is tifeed to alter fcl^siirat^'ejc^f ,|ac*^±ding^^ 
transfomration rule. ■ ' ,. , ; ,,'!'■' ' • ,,,:,',!:„., ' ,' :■ 



Fdrmat 



f figurative- constant- 1 
TRANSFORM identifier-3 CHARACTERS FROM , |nonnumeric-literal-l 

t identif ier-1 



{ figurative-constant- 2 
TO ]nonnumeric-literal-2 
'identifier- 2 



— t 

I 



Identif ier- 3 must represent an elementary alphabetic, alphanumeric, 
or numeric edited item, or a group item. 

The combination of the FROM and TO options determines what the 
transformation rule is- 

The following rules pertain to the operands of the FROM and TO 
options: 

1. Nonnumeric literals require enclosing quotation marks - 

2. Identif ier-1 and identif ier-2 must be elementary alphabetic, or 
alphanumeric items, or fixed length group items not over 255 , ,; 
characters in length. 

3. A character may not be repeated in nonnumeric- literal- 1 or in the 
area defined by identif ier-1. If a character is repeated, the 
results will be unpredictable. 

i|. The allowable figurative constants are: ZERO, ZEROES, ZEROS, 

SPACE, SPACES, QUOTE, QUOTES, HIGH-VALUE, HIGH-VALUES, LOW-VALUE, ^ 

and LOW- VALUES, -; 

; ; r 

When either identifier-1 or identif ier-2 appears as an operand of the 
specific transformation, the user can change the transformation rule at 
object time. 

Examples of data transformation are given in Figure 35; combinations 
of the FROM and TO options are shown in Figure 36. 

If any of the operands of a TRANSFORM statement share a part of their 
storage (that is, if the operands overlap), the result of the execution 
of such a statement is unpredictable - 



J. — _ ^ ^ ^ . ^ 

I Identifier-3 | | ] Identifier-3 J 
j (Before) j FROM j TO | (After) | 
j. _.________: -_^ ^. ^___ : ^ ___^ _ 1 

1 lb7bbABC j SPACE j QUOTE | 1"7""ABC j 

t lb7bbABC | "17CB" | "QRST" j QbRbbATS \ 

j lb7bbABC i bl7ABC j CBA71b | BCACC71b | 

I 1234WXy89 I 98YXWit321 j ABCDEFGHI | IHGFEDCBA j 

L : . A_^ . X : J i; 

Figure 35. Examples of Data Transformation 
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TRANSFORM Statement 



r :^ -— — —■ — •— -xr 

j Operands {: 



Transformation Rule 



f 



(FROM 

j f igi3rative-constant-;l 
■;}T0' ■■ 
I figurative-constant- 2|: 

rj-.^'. .- - ■ ■: ^. ' 

: I .1 

1. 1 FROM : ■■. .-/:\ 

i j f igurative-constant-l I 

:/|To,;-"-..; ^.■. .■■■;■; 

] 1 nonnumeriic-litera3.^2i I 

ii-: ■ ■■■■■; ■■■:.: ■■■■;■ -I 

;.T- .■.■■■..:.-■ ■.':■ ■ ■■■■■: ■::'! 

}J;FR0M-/ ■■.'■■;■ L , 
J-j.figuratiMe-constant-l'j "l' 

rlTOV ;, . /M 

i}identifidr-.:^ . . ■■■.■■■ 1 1 

?i. ::::: ■■.-^ ■■.:■.■;■■: .:' ■ |1 
ir- r ill 

H- ■'' ■ .-:■::--■': . ■ ■ ' Ml 
IIfrqm ■■ .■■■i . : hi 

I InonnuraericT-literal-l-^ | ^ 
j|To ■■.-- r ^ i 

I |f igurative-<2onstaLnt-2 1 1 

If -y-- ■!: i'.-;. ■. .^ ■■ • 
llFRcM^;^'' ■ '■:!■ r; - ; r: I 
l|ito»ii|a«aerjfei-ii:terit4ii'! , « 

|po::||;;:r.;.. |i?^ v; ;;; s .^jii 



All characters in the data item represented iDyf 
identifier-3 equal to the single character j 
figurative-constant-1 are replaced by the | 
single character f j"nrative-constant-2. ( 



All characters in the data item represented by 
identifier-3 equal to the single character 
figurative-constant-l are replaced by the 
single character nonnumeric-literal-2. 

All characters in the data item represented by 
identifier-3 equal to the single character 
figurative-constant-l are replaced by the 
single character represented by 
• .identifier- 2. 




All characters in the data item represented byf 
identifier-3 that are equal to any character! 
in nonnumeric-literal-1 are replaced by the j 
single character figurative- constant- 2. j 



Nonnumeric-literal-1 and nonnumeric-literal-2 t 

• must be equal in length or | 

nonnumeric-literal-2 must be a single | 

character. f 

} 

itx the nonnumeric- literals are equal in . J 

i ; length, any character in the data item f^ 

: represented by identifier-3 equal to a j 

I [character in nonnuraeric-literal-1 is | 

|replaced by the character in the j 

jcorr^slponding position of j 

^nonriiimeric- literal- 2. I 

^ • ■ ■ . < 

IB thie ;length of nonnumeric- 1 liberal- 2 is one, | 

^ *aljl^ cjharacters in the data item represemtedt t| 

h^ li'dentifier-3 that are equal to a-ny j; 

cJHclrydtea: appearing in nonnikmeric-literal-1 j 

^ifd replaced by the single character given I 

lrJc|tHiumeric-literal-2. j; 




nd TO Options (Pajrt il of 2) 
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\TRMSFOHM-...Sta1-0itt6iit' 



h 



Operands 



Transformation Rule 



, ^ j 

Nonnumeric- literal- 1 and the data iten \ 
represented by identifier- 2 must be equal inj 
length or identifier- 2 must represent a | 
single character item. j 

t 

If nonnumeric-literal-1 and identifier-2 are | 

equal in length, any character represented | 

"by identifier-3 equal to a character in j 

nonnumeric-literal-1 is replaced by the j 

character in the corresponding position of j 

the item represented by identifier-2. | 

\ 

If the length of the data item represented by } 

identifier-2 is one, all characters j 

represented by identifier-3 that are equal | 

to any character appearing in j 

nonnuraeric- literal- 1 are replaced by the } 

single character represented by | 

identifier-2. j 

I 
All characters represented by identifier-3 { 
that are equal to any character in the data { 
item represented by identifier-1 are re- { 
placed by the single character j 

f igurative-constant-2. { 



FROM 

t nonnumeric-literal-1 
TO 
identifier- 2 



1 FROM 

I identifier-1 
TO 
[ f igurative-constant-2 j 



I FROM 

identifier-1 
TO 
nonnumeric-literal-2 



The data item represented by identifier-1 and | 

nonnumeric-literal-2 must be of equal J 

length or nonnumeric-literal-2 must be one j 

character. J 

•a 

If identifier-1 and nonnumeric-literal-2 are \ 
equal in length, any character in \ 

identifier-3 equal to a character in j 
identifier-1 is replaced by the character in| 
the corresponding position of | 

nonnumeric-literal-2. [ 

1 
If the length of nonnumeric-literal-3 is one, \ 
all characters represented by identifier-3 j 
that are equal to any character represented | 
by identifier-1 are replaced hy the single j 
character given in nonnumeric-literal-2. j 



[FROM 

identifier-1 
[TO 

identifier-2 



?Lny character in the data item represented by j 

identifier-3 equal to a character in the j 

data item represented by identifier-1 is j 

replaced by the character in the j 

corresponding position of the data item | 

represented by identifier-2. Identifier-1 j 

and identifier-2 can be one or more j 

characters, but must be equal in length. | 



Figure 36. Combinations of FROM and TO Options (Part 2 of 2) 
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OPEN Statement 



INPUT/OUTPUT STATEMENTS 



The flow of data through the computer is governed by the Disk 
Operating System. The COBOL statements discussed in this section are 
used to initiate the flow of data to and from files stored on external 
media and to govern low-volume information that is to be obtained from 
or sent to input/output devices such as a card reader or console 
typewriter. 



The Disk Operating System is a record processing system. That is, 
the unit of data made available by a READ or passed along by a WRITE is 
the record. The COBOL user need be concerned only with the use of 
individual records; provision is automatically made for such operations 
as the movement of data into buffers and/or internal storage, validity 
checking, error correction (where feasible) , unblocking and blocking, 
and volume switching procedures. 

Discussions in this section use the terms volume and reel. The term 
volume applies to all input/output devices. The terra reel applies only 
to tape devices. Treatment of mass storage devices in the sequential 
access mode is logically equivalent to the treatment of tape files. 



Note: The WRITE statement with the BEFORE/AFTER ADVANCING option is 
referred to in some of the discussions that follow as the WRITE 
BEFORE/AFTER ADVANCING Statement. 




OPEN Statement 



The OPEN statement initiates the processing of input, output, and 
input-output files. It performs checking and/or writing of labels and 
other input/output operations. 



Format 



OPEN [INPUT {file-name 



REVERSED 



WITH NO REWIND 



}...] 



[OUTPUT {file-name [WITH NO REWIND ] }...] 
[ I-p {file-name} ...] 

L J 



At least one of the options INPUT, OUTPUT, or I-O must be specified. 
However, there must be no more than one instance of each option in the 
same statement, although more than one file-name may be used with each 
option. These options may appear in any order. 
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OPEN Statement 



The I-O option pertains only to mass storage files 



The file-name must be defined by a file description entry in the Data 
Division. The FD entry for the file must be equivalent to that 
specified when the file was created. 

The OPEN statement must not specify a sort- file; an OPEN statement 
must be specified for all other files. The OPEN statement for a file 
must be executed prior to the first READ, SEEK, ;iitfflfe|l|| or WRITE 
statement for that file. A. second OPEN statement for a file cannot be 
executed prior to the execution of a CLOSE statement for that file. The 
OPEN statement does not obtain or release the first data record. A READ 
or WRITE statement must be executed to obtain or release, respectively, 
the first data record. 



When checking or writing the first label, the OPEN statement causes 
the user's beginning label subroutine to be executed if one is specified 
by a USE sentence in the Declaratives. 



js«3 ;bp^::jej .-alilpclalt^^'' "fpk" |t|hle| .cjkinld^r 'irldfelx; ?^ir' ^MaTs^tteto'tibdejc ;iis Ettot- ■■BaariGf^v 
^bi^'i:! tea bca^tiaain (tlhe nx^mjf&r iqf ^tij^'ies r|e|<jmred 'fiOrl/th^ prijBrte ;<^*ajta;.j " j |; 



The REVERSED and the NO REWIND options can be used only with 
sequential single reel files. The REVERSED option may be specified only 
for a file containing fixed-length (F mode) records- 
Files with nonstandard header labels must not be opened for reversed 
reading unless the last header label is followed by a tape mark. 

For tape files, the following rules apply: 

1. When neither the REVERSED nor the NO REWIND option is specified, 
execution of the OPEN statement causes the file to be positioned at 
its beginning. 

2. When either the REVERSED or the NO REWIND option is specified, 
execution of the OPEN statement does not cause the file to be 
repositioned. When the REVERSED option is specified, the file must 
have been previously positioned at its end. When the NO REWIND 
option is specified, the file must have been previously positioned 
at its beginning. 

When the REVERSED option is specified, subsequent READ statements for 
the file make the data records of the file available in reversed order; 
that is, starting with the last record. 

If an input file is designated with the OPTIONAL clause in the File 
Control paragraph of the Environment Division (sequential file 
processing), the clause is treated as comments. The desired effect is 
achieved by specifying the IGN parameter in the ASSGN control statement 
for the file. If the file is not present, the first READ statement for 
this file causes control to be passed to the imperative statement in the 
AT END phrase. 

The 1-0 option permits the opening of a mass storage file for both 
input and output operations- Since this option implies the existence of 
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tne file, it cannot be used if the rrass storage file is being initially 
created. 

When the I-O option is used, the execution of the OPEN statement 
includes the following steps: 

1. The label is checked. 

2. The user's label subroutine, if one is specified by a USE sentence, 
is executed. 

3. The label is written. 

A file inay be opened as INPUT and OUTPUT and l-O in any order (with 
intervening CLOSE stateinents without the UNIT or RE2L option) . However, 
an indexed' file may not be opened OUTPUT arid INPUT or I-C within the 
same prograin. 



START Statement 



The START statement initiates processing of a segment of a sequen- 
tially accessed indexed file at a specified key. 



J. ^ 

I Format 1 j 

^ —^ 

1 I 

I START file-name INVALID KEY imperative-statement j 

i I 

L , i 

J. ^ 

I Format 2 (Version 3) | 

^ ^ 

I I 

I ( EQUAL TO ) I 

I START file-name KEY IS < > identifier { 

I (= ) i 

I . . I 

I INVALID KEY xmperative-statement j 

L : J 



Normally, an indexed file in the sequential mode is processed 
sequentially from the first record to the last or until the file is 
closed. If processing is to begin at other than the first record, a 
START statement must be executed after the OPEN but before the first 
READ statement. Processing will then continue sequentially until a 
START statement or a CLOSE statement is executed or until the 
end-6f-f ile is reached. 

If processing is to begin at the first record, a START statement is 
not required before the first READ. 

File- name : The file-name must be defined by a file description entry in 
the Data Division. 

Format 1 ; When Format 1 is used, the contents of the NOMINAL KEY are 
used as the key value of the record at which processing is to begin. In 
this instance^ this key value miist be placed in the data-name specified 
i?y the NOMINAL KEY clause for this file before the START statement is 

l^l^uecl. . 



2UB 
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START Statement (Version 3) 

When the INVALID KEY option is specified, control is passed to the 
iroperative-statement following INVALID KEY when the contents of the 
NOMINAL KEY field are invalid. The key is considered invalid when the 
record is not found in the file. 

Program Product Information (Version 3) 

Format 2 : When Format 2 is used, the programmer requests that 
processing begin with the first record of a specified generic key 
class. 

Identifier contains the generic key value for the request, and may 
be any data item less than or equal in length to the RECORD KEY for 
the file. Identifier may not appear in the record description for 
this file. 

T^hen the KEY option is specified, then before a START statement is 
issued, the user must place the desired value (the generic key) 
into identifier . When the START statement is executed, the ., 
contents of identifier are used to position the file to the 
beginning of the generic group. This is defined as the first 
record in the file with a key equal to identifier, the comparison 
starting with the leftmost character of the RECORD KEY, and 
controlled by the length of identifier. Sequential processing of 
the file resumes at the first record whose RECORD KEY contains a 
match with the contents of identifier. If the generic group does 
not exist, the file is positioned to the beginning of the next 
higher generic group in the collating sequence. 

Identifiers of different lengths may be specified for different 
START statements for the same file» 

For example, if the data records in a file contain a 10-character 
RECORD KEY field, and the user wishes to process the file from the 
beginning of a generic class defined by the first five characters 
within the RECORD KEY field, then he specifies a 5-character 
identifier field- If he later wishes to begin processing from the • 
beginning of another generic class defined by the first three 
characters within the RECORD KEY field* his next START statement 
may specify a 3-character identifier, field- 
Note that upon execution of a Format 2 START statement the contents 
of the NOMINAL KEY field associated with the file are changed. 

^^ identifier is greater in length than the IsiOMINAL KEY field, then 
the excess low-order characters of identifier are truncated. 

In Format 2, when the INVALID KEY option is specified, control is 
passed to the imperative-statement following INVALID KEY when the 
contents of identifier are invalid- Identifier is considered 
invalid when the generic key class it contains is greater than the 
highest key in the file. 
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SEEK Statement 



SEEK Statement 



The SEEK statement is meant to initiate the accessing of a mass 
storage data record for subsequent reading or writing. It is used to 
optimize programming efficiency. 




A SEEK statement pertains only to direct files in the random access 
mode and may be executed prior to the execution of a READ or WRITE 
statement. 

The file-name must be defined by a file description entry in the Data 
Division. 

The SEEK statement uses the contents of tlie data-name in the A.CTUA.L 
KEY clause for the location of the record to be accessed. A.t the time 
of execution, the determination is made as to the validity of the 
contents of the ACTUAL KEY data item for the particular mass storage 
file. If the key is invalid, when the next READ or i^/RITE statement for 
the associated file is executed, control will be given to the 
imperative-statement in the INVALID KEY option. 

Two SEEK statements for the same direct file may logically follow 
each other. Any validity check associated with the first SEEK statement 
is negated by the execution of the second SEEK statement. 

If the contents of the ACTUAL KEY are altered between the SEEK 
statement and the subsequent READ or WRITE statement, any validity check 
associated with the SEEK statement is negated, and the READ or WRITE 
statement is processed as if no SEEK statement preceded it. 



irju^v^cuajLt; uxv±aj.uii 



READ Statement 



READ Statement 



The functions of the REA.D statement are: 

1. For sequential file processing, to make available the next logical 
record from an input file and to give control to a specified 
imperative-statement when end-of-file is detected. 

2. For random file processing, to make available a specific record 
from a mass storage file and to give control to a specified 
imperative-statement if the contents of the associated ACTUA.L KEY 
0t ^QmMMt SMY data item are found to be invalid. 



r 1 

I Format | 

|. ^ 

READ file-name RECORD [ INTO identifier] 

[AT END 



imperative-statement 
INVALID KEY) 

L J 



An OPEN statement must be executed for the file prior to the execu- 
tion of the first READ for that file. 

When a READ statement is executed, the next logical record in the 
named file becomes accessible in the input area defined by the 
associated record description entry. 

The record remains in the input area until the next input/output 
statement for that file is executed. No reference can be made by any 
statement in the Procedure Division to information that is not actually 
present in the current record. Thus, it is not permissible to refer to 
the nth occurrence of data that appears fewer than n times. If such a 
reference is made, no assumption should be made about the results in the 
object program. 

When a file consists of more than one type of logical record, these 
records automatically share the same storage area; this is equivalent to 
an implicit redefinition of the area. Only the information that is 
present in the current record is accessible. 

FILE- NAME : The file- name must be defined by a file description entry in 
the Data Division. 

INTO IDENTIFIER OPTION : The INTO identifier option makes the READ 
statement equivalent to a READ statement plus a MOVE statement. 
Identifier must be the name of a Working-Storage or Linkage Section 
entry, or an output record of a previously opened file. When this 
option is used, the current record becomes available in the input area, 
as well as in the area specified by identifier. Data will be moved into 
identifier in accordance with the COBOL rules for the MOVE statement 
without the CORRESPONDING option. 

AT END OPTION : The AT END option must be specified for all files in the 
sequential access mode. If, during the execution of a READ statement, 
the logical end of the file is reached, control is passed to the 
imperative- statement specified in the AT END phrase. After execution of 
the imperative-statement associated with the AT END phrase, a READ 
statement for that file must not be given without prior execution of a 
CLOSE statement and an OPEN statement for that file. 
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Page of GC28-6394-4, -5, -6 revised 12/03/76 by TNL GN26-0887 
READ Statement 

If an input file is designated with the OPTIONAL clause in the File 
Control paragraph of the Environment Division (sequential file 
processing) , the clause is treated as comments. The desired effect is 
achieved by specifying the IGN parameter in the ASSGN control statement 
for the file. If the file is not present, the first READ statement for 
this file causes the imperative-statement in the AT END phrase to be 
executed. 

If, during the processing of a multivolume file in the sequential 
access mode, end-of -volume is recognized on a READ, the following 
operations are carried out: 

1. The standard ending volume label procedure and the user's ending 
volume label procedure, if specified by the USE sentence. The 
order of execution of these two procedures is specified by the USE 
sentence. 

2. A volume switch. 

3. The standard beginning volume label procedure and the user's 
beginning volxime label procedure, if specified. The order of 
execution is again specified by the USE sentence. 

4. The first data record of the new volume is made available. 

INVALID -KEY OPTION ; If ACCESS IS RANDOM is specified for the file, the 
contents of the ACTUAL or NOMINAL KEY for the file must be set to the 
desired value before the execution of the READ statement. 

Only the track specified in the ACTUAL KEY is searched for the record 
being read. 

ligiiiMHliiiiiiiiiiiiiiHlii^^ 
iBiiiiiiiHiiiiiiiiHiiiiiiH 

For a randomly accessed file, the READ statement implicitly performs 
the functions of the SEEK statement, unless a SEEK statement for the 
file has been executed prior to the READ statement. 

The INVALID KEY option must be specified for files in the random 
access mode. The imperative-statement following INVALID KEY is executed 
when the contents of the ACTUAL KEY or NOMINAL KEY field are invalid. 

The key is considered invalid under the following conditions: 

1. For a direct file that is accessed randomly, when the record is not 
found within the search limits (using relative addressing) , or when 
the track address in the ACTUAL KEY field is outside the limits of 
the file (using actual addressing) . 

2* For an ind^sxed file that is accessed randomly, when no record 

exists \sfhose RECORD KEY field matches tiiB contents of the NCsmuAL 
KBY fie^ia. 

WRITE Statement 

The WRITE statement releases a logical record to an output file. It 
can also be used for vertical positioning of a print file. For 
sequentially accessed mass storage files, the WRITE statement passes 
control to a specified imperative-statement if the file limit is 
exceeded. For randomly accessed mass storage files, the WRITE statement 
passes control to a specified imperative-statement if the contents of 
the associated ACTUAL or NOMINAL KEY data item are found to be invalid. 

The WRITE statement, can also i>e used for gnocket selection for ^ card 
punch file. 
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r 1 

1 Format 1 | 

|. ^ 

1 1 

I WRITE record-name [ FROM identif ier-1] | 

I I 



I r ( BEFORE ) (identifier-2 LINES 



(laentirier-^ LiiNtiiSj 

ADVANCING j integer LINES [ 

'mnemonic- name ' 



- ' AFTER ) 'mnemonic- name 



I ■ . mm , ? I 

I ! 

L J 



ii|ii pMiM iiiiMipMi ^M 



r 1 

I Format 3 | 

|. ^ 



WRITE record-name [ FROM identif ier-1] 
INVALID KEY imperative-Statement 



An OPEN statement for a file must be executed prior to executing the 
first WRITE statement for that file- 

For files in both the sequential and random access modes, the logical 
record released is no longer available after the WRITE statement is 
executed. 



RECORD- NAME ; The record-name is the name of a logical record in the 
File Section of the Data Division and must not be part of a sort-file. 



FROM OPTION ; When the FROM option is written, the WRITE statement is 
equivalent to the statement MOVE identif ier-1 TO record-name followed by 
the statement WRITE record-name. Data is moved into record-name in 
accordance with the COBOL rules for the MOVE statement without the 
CORRESPONDING option. Identifier- 1 should be defined in the 
Working-Storage Section, tj^ tLisStS9^ g«pt|^r °^ ^^ another FD. 
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WRITE Statement 

FORMAT 1 AND FORMAT 2 ; Formats 1 and 2 are used only with standard 

sequential files not residing on a mass storage device. 

The ADVANCING and POSITIONING options allow control of the vertical 
positioning of each record on the printed page- If the ADVANCING or 
POSITIONING option is not used, automatic advancing is provided to cause 
single spacing. If the ADVANCING or POSITIONING option is used,, auto- 
matic advancing is overridden. 

When the ADVANCING or POSITIONING option is written for a record in a 
file,, every WRITE statement for records in the same file must also 
contain one of these options. The POSITIONING and ADVANCING options may 
not both be specified for a file. 

When the ADVANCING or POSITIONING option is used, the first character 
in each logical record for the file must be reserved by the user for the 
control character. The compiler will generate instructions to insert 
the appropriate carriage control character as the first character in the 
record. If the records are to be punched, the first character is used 
for pocket selection. It is the user's responsibility to see that the 
appropriate channels are punched on the carriage control tape. 

Format 1 ; In the ADVANCING option, when identif ier-2 is used, it must 
be the name of a nonnegative numeric elementary item (less than 100) 
described as an integer. If identif ier-2 is specified, the printer page 
is advanced the number of lines contained in the identifier- 

When integer is used in the ADVANCING option, it must be nonnegative, 
and less than 100. If integer is specified, the printer page is 
advanced the number of lines equal to the value of integer. 

When the mnemonic- name option is used in the ADVANCING option, it 
must be defined as a function-name in the Special-Names paragraph of the 
Environment Division. It is used for a skip to channels 1-9, 10-12, and 
to suppress spacing. It is also used for pocket selection for a card 
punch file. 

The meaning of each function-name is shown in Figure 37. 



r T- 

I Function-name | 
^ +. 



Action Taken 



Suppress spacing 



|CSP I 

^ ^ 

|C01 through C09| Skip to channel 1 through 9, respectively 



h 



-+- 



JCIO through C12| Skip to channel 10, 11, and 12, respectively 
^ + 

I SOI, S02 I IBM 1442 

1 I IBM 2540 

I SOI through S05| IBM 2560 

I (Version 3) | IBM 3525 

L X 



pocket select 1 or 2 
pocket select PI or P2 
stacker select 1 through 5 
stacker select 1 or 2 



Figure 37- Action Taken for Function-Names — ADVANCING Option 



If the BEFORE ADVANCING option is used, the record is written before 
the printer page is advanced according to the preceding rules. 

If the AFTER ADVANCING Option is used, the record is written after 
the printer page is advanced according to the preceding rules. 
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WRITE Statement 

Forroafe 2 : lii the Zi^FTER POSITIONING option, identifier- 2 must be 
described as a one-character aiphantiraeric item, that is, with PICfORE Xi, 
Figyre 38 shov?s the valid values that identifier-2 may assiiine and their 

interpretations.-, ■".'''■ 

- in the AFTER POSITIONING option, integer must be unsigned, and must 
be the value 0, 1, 2, or 3. The values assume the meanings shown in 
Figure 39. 



j.^^ . .__^_ . ^ ,___.^ ,__ __ ^ 

} >^7alue \ Interpretation J 

|_.^_„__^_ !_«_ ^__^____ ^____._______^: . __>^_4 

} b{blank) } Single- spacing j 

i I Double-spacing , 1 

j -- {Triple-spacing . , | 

j + {Suppress spacing , | 

i 1 - 9 jskip to channel 1-9, respectively j 

I A, B, C jSkip to channel 10, 11, 12, respectively j 

j -V^'W -, tXBM ,1^*42: pocket select 1 i,m or -2 'CW) . j. 

j j IBM 2540: pocket select Pi (V) or ^2 (W) j 
j V, W, X, Y^ ZJIBM 2560: stacker select 1 {V>, 2 {^) , 3 <X), 4 (Y), | 

{(Versions) j or 5(Z> j 

j JIBM 3525: stacker select 1 (V) or 2 (w) \ 

t — : — _._- — : :_x __ — ; — : .—.^ — :-: ., : : '.^ l^—i 

Figure 38. Values of Identifier-^ 2 a;nd Their Interpretation '■ — 
. „ .POSITIONING Option , .: 



1. 


ili»li 


,H- 






iiHiiSi 




Si?:SSSH?;S:*j5;iS'-j 


1 





Interpretation 



— "I 



j Skip to channel 1 of next page (carriage control 
j "eject") 

j Single-spacing 

• i . ••• , .- " 
\ Double-r spacing 

\ - •' • • ^^ • ■ 
I . Triple-spacing 
;t-, — .. .: X.. ..^ - -^ - : : ~ . — _- : _- 

Figure 39. Values of Integer and Their Interpretations — POSITIONING 
Option 



If the AFTER POSITIONING option is used» the record is written after 
the printer page is advanced according to the preceding rules- 

SND^OF-PAGE Option : The END-OF-PAGE condition exists when the channel 
12 punch on the carriage control tape is sensed by an on-line printer. 
The printer file must be defined as an unblocked single-buffered file. 
The programmer should ensure that every WRITE statement in the program 
(whether using the ADVANCING or the POSITIONING option) advances the 
printer only one line at a time; otherwise, the channel 12 punch may not 
be sensed and r€sul*:S may be unpredictable. 

When an END-OF-PAGE condition exists, the writing and spacing 
operations are completed before the END-OF-PAGE imperative-statement is 
executed. The END-OF-PAGE statement will be executed only for an 
on-line printer. 

Note: DISPLAY, EXHIBIT, WRITE AFTER POSITIONING, and WRITE AFTER 
ADVANCING statements all cause the printer to space before printing. 
However, a simple WRITE statement without any option given, or a WRITE 
BEFORE ADVANCING statement both cause the printer to space after 
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WRITE Statement (Version 3) 

printing. Therefore, it is possible that mixed DISPLAY statements, 
EXHIBIT Stateiments., and simple WRITE statements or WRITE BEFORE 
ADVANCING Statements within the same program may cause overprinting, 



Program Prod\3ct Information (Version 3) 

System/370 Card Devices : The System/370 multifunction card devices 
have special considerations for the WRITE statement. 

For punched output, tJie 'WRITE _M>VANCIMS/PdSI*ElQNIl^ia .stateiS€|%iS; hp^^ 
•us^, for' s.tac^er selection. ',Tables %^ ant'd ■ 20 slie^ "v^ai'ld ;\icQa*a4rftif ' 



For printed output, the SID-OF-PAOE option SPutst; 'wot, be spetc^Lti^H;* 
In addition, any attempt to write beyond the limits of the card 
causes abnormal termination of the job. 

For the 2560 print feature , the ADVANCING ati<l.-.KiSJ|EE<^»im, options 
are not allowed. Automatic single spacing is provided. There may 
be only one WRITE statement issued for each card. 

The 2560 print feature allows a maximum of 64 characters per line 
and up to 6 lines per card, for a maximum of 38 4 characters - 

To position printed output on the card, the user can include SPACE 
characters in the output record. If, for example, he wishes to 
position the printing on lines 2 and 4 using the 256 device, he can 
define the output record as follows: 



VALUE SPACES. 

VALUE SPACES. 

VALUE SPACES. 

The 

multiline print file, depending on the capabilities of the specific 

model in use. Up to 64 characters may be printed on each line. 

For a 2-line print file, the lines are printed on line 1 (top edge 
of card) and line 3 (between rows 11 and 12). The ADVANCING ^^1 
iPQSITIQNINQ options are not allowed; automatic spacing is provided. 
Up to two WRITE statements may be issued for each card. 

For a multiline print file up to 2 5 lines of characters may be 
printed. Line control may be specified through the AFTER ADVANCING 
and AF^;ER ?<>SI3:i;QNING. options. (BEFORE ADVANCING may not be 
specified. ) 

Identifier and integer have the same meanings they have for other 
WRITE AFTER ADVANCING C^' ^^^iW^^^^, W^^^^S^^^, Statements. 
However, such statprnpnts m ust not specify space suppression, and 
they must not advance the line position beyond the limits of the 
card. 

The mnemonic-name option of the WRITE AFTER ADVANCING statement may 
also be specified. Only the following function- names may be 
associated with the mnemonic-name: 



01 


OUTRECORD-2560. 




05 


FILLER PIC X(64) 




05 


OUT-LINE-1 PIC X(64). 




05 


FILLER PIC X(64) 




05 


OUT-LINE-2 PIC X(64). 




05 


FILLER PIC X(128) 


3525 


print feature allows eithe 
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Function- name Meaning 

C02 Line 3 

C03 Line 5 

C04 Line 7 

C12 Line 23 

(Note that COl and CSP may not be used. ) 

(See also Appendix G: Combined Function Card Processing.) 

MULTIVOLUME SEQUENTIAL FILES : The discussion below applies to all 
multivolume tape files and to multivolume mass storage files in the 
sequential access mode. 

After the recognition of an end-of -volume on a multivolume OUTPUT or 
I-O file in the sequential access mode, the WRITE statement performs the 
following operations: 

1. The standard ending volume label procedure and the user's ending 
volume label procedure if specified by a USE sentence. The order 
of execution of these two procedures is specified by the USE 
sentence. 

2. A volume switch. 

3. The standard beginning volume label procedures and the user's 
beginning volume label procedure if specified by the USE sentence. 
The order is specified by the USE sentence. 

FORMAT 3 : Format 3 is used for randomly or sequentially accessed mass 
storage files. 

For standard sequential files opened as OUTPUT, the WRITE statement 
can be specified only to create the file. For such files opened as I-O, 
a READ statement must be executed before the WRITE statement is issued; 
the WRITE statement updates the record retrieved by the previous READ 
statement. 

.FOf segaentialiy accessed index^ files, the l«RXTE statemeat creates: 
.M record for ^n OEJIJPtlT file- 

If ACCESS IS RANDOM is specified for the file, the contents of the 
ACTUAL or NOMINAL KEY field for the file must be set to the desired 
value before the execution of a WRITE statement. For a direct file, the 
track specified in the ACTUAL KEY field is searched for space for the 
record to be written. 

The INVALID KEY phrase must be specified for a file that resides on a 
mass storage device. Control is passed to the imperative- statement 
following INVALID KEY when the following conditions exist: 

1. For a mass storage file in the sequential access mode opened as 
OUTPUT, when an attempt is made to write beyond the limit of the 
file. In this case, the file cannot be closed, because there is 
no space for an EOF record. Rerun the job with larger extents. 

2. For a direct file opened as 1-0 or OUTPUT, if access is random and 
a record is being added to the file, when the track address 
specified in the ACTUAL KEY field is outside the limits of the 
file. 

3. For a direct file opened as I-O, if access is random and a record 
is being updated, control is passed to the imperative-statement 
following INVALID KEY when the record is not found, or when the 
track number in the ACTUAL KEY field is outside the limits of the 
file. 
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4» For an iM^cect file op^aetS as OUTI^UT, if access is ^eqaentiaX, when 
^either on^ of tJbte foli owing couditions occurs: 

. a* The cont^mit^ of the hecomj KE5f field are not in ascending order 
vstien compared vritli the contejntts of the RBCOHD key f ieM of tiie 
precediii^gr record 

b* the conteiits of the BltCORD KEIt field d^tplicate those of the 
preceding record 

5* For an indexed file opened as l-O, if access is randoai and a record 
is beiti:g added to the file, whea the contents of the SlomsAL KEY 
field associated with, the record to be added duplicate the contents 
of a RECORD KEY field already in the file. 

RANDOMLY ACCESSED DIREC T F ILES: The WRITE Statement performs the 
function of a SEEK statement, unless a SEEK statement for this record 
was executed prior to the WRITE statement. 

For a randomly accessed direct file that is opened I-O, the following 
considerations apply: 

• If A or D is specified in the ASSIGN clause system-name, then: 

(1) a WRITE statement updates a record if the preceding 
input/output statement was a READ statement for a record with 
the same ACTUAL KEY. 

(2) a WRITE statement adds a new record to the file, whether or not 
a duplicate record exists, if the preceding READ statement was 
not for a record with the same ACTUAL KEY. 

IIHB^IiiiiiHiiiiliiB 

liillliiililiiiBiiii 
llllllllllililll^ 

iiiillliiiiiiliiB^^^ 



liiililiiliiiililiiiiili^^ 

iiiiiiiiiiiiiiHiiiii|iiiii^^ 

IMMiiiiiB!:illiiiiiiWiiM^ 




l^iiiiiifc^BiiMi^piBiiiiiiiiittiiM^ 




iiliiiiiiiiMliiiili 






ACCEPT Statement 

If ACCESS IS RANDOM is specified for the file^ the ACT0AL or i«)MINAL 
KEY must be set to the desired value prior to the execution df the 
REWRITE statement- 

The record-nartte j.s the name of a logical record in the File Siection 
of the Data Division, and must not be part of a sort file. f 

When the FROM option is used, the REWRITE statement is equivalent to 

the statement MOVE identifier TO record-name followed by the staltj^ment 

REWRITE record-name. Identifier should be defined in the 

Working- Storage Section, Linkage Section, or in another FD, 

For a direct file that is accessed randomly, control is passed to the 
i mperative-statement following INVALID KEY when the contents of the 
ACTUAL KEY field are invalid. The key is considered invalid when the 
record is not found, or when the track address is outside the limits of 
the file. 

For an indexed file that is accessed randomly, control is passed to 
the imperative-statement following INVALID KEY when the preceding READ 
statement caused an error condition. 

Note : For the relationship between the REWRITE statement and the ASSIGN 
clause system-name, see the paragraphs on Randomly Accessed Direct files 
in "WRITE Statement**. 



ACCEPT Statement 



The function of the ACCEPT statement is to obtain data from the 
system logical input device (SYSIPT) , or from the CONSOLE. 



r 1 

Format | 

1^ ^ 



ACCEPT identifier [ FROM j' G<3iJS0LEn :: 

' mnemonic-name 



L J 



Identifier may be either a fixed- length group item or an elementary 
alphabetic, alphanumeric, external decimal^ i«>5CH€KictS^^ 
item. Identifier may not be any Special Register except TALLY. The 
data is read and the appropriate number of characters is moved into the 
area reserved for identifier. No editing or error checking of the 
incoming data is done. 



If the input/output device specified by an ACCEPT statement is the 
same one designated for a READ statement, the results may be 
unpredictable . 

Mnemonic-name may assume either the meaning SYSIPT or CONSOLE. 
Mnemonic-name must be specified in the Special-Names paragraph of the 
Environment Division. If mnemonic-name is associated with CONSOLE, 
identifier must not exceed 255 character positions in length. If the 
FROM option is not specified, SYSIPT is assumed. 

When an ACCEPT statement with the FROM mnemonic -name for CONSOLE 
option ><^ FJiOl&l CbNSOliE is executed, the following actions are taken: 
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DISPLAY Statement 



1. A system generated message code is automatically displayed followed 
by the literal "AWAITING REPLY". 

2. Execution is suspended. When a console input message is identified 
by the control program, execution of the ACCEPT statement is 
resumed and the message is moved to the specified identifier and 
left justified regardless of the PICTURE. If the field is not 
filled the low-order positions may contain invalid data. 

If mnemonic-name is associated with SYSIPT dai fe^te IBC«4 S 
is specified, an input record size of 80 is assumed. If the size of the 
accepting data item is less than 80 characters, the data must appear as 
the first set of characters within the input record; any characters 
beyond the length of the accepting identifier are truncated. If the 
size of the accepting data item is greater than 80 characters, as many 
input records as necessary are read until the storage area allocated to 
the data item is filled. If the accepting data item is greater than 80 
characters, but is not an exact multiple of 80, the remainder of the 
last input record is not accessible. 



DISPLAY Statement 



The function of the DISPLAY statement is to write data on an output 
device. 



Format 



DISPLAY 



[UPON 



literal-1 

identif ier-1 

CONSOLE' 

SYSPCH 

SYSPUNCH 

SYSjLST "' 

mnemonic-name. 



literal-2 
_identif ier-2. 



L J 



Mnemonic-name must be specified in the Special-Names paragraph of the 
Environment Division. Mnemonic-name may be associated only with the 
reserved words CONSOLE, SYSPCH, SYSPUNCH, or SYSLST. 

When the UPON option is omitted, the system list device- (SYSLST) is 
assumed. 

A maximum logical record size is assumed for each device. For 
CONSOLE (the system logical console device) , the maximum is 100 
characters. For SYSLST (the system logical output device), the maximum 
is 120 characters. For SYSPCH or SYSPUNCH (the system punch device), 
the maximum is 72 characters, with positions 73-80 used for the 
PROGRAM- ID name. 

If the total character count of all operands is less than the maximum 
(or 72 for SYSPCH or SYSPUNCH) , the remaining character positions are 
padded with blanks. If the count exceeds the maximum size, operands are 
continued in the next record. As many records as necessary are written 
to display all the operands specified. Those operands pending- at the 
time of the break are split between lines if necessary. 
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Identif iers described as USAGE COyiPUTATIONAL, COtdPUTATIDMAL-l, 
ed«PUTATI0NAL-2, or COMpOT?|iTIG>NAL-3 are converted autoiriaticaliy to 
external format, as follows: 

1. Internal'-d&ciraal and binary items are converted to external 
decimal. Only negative signed values cause a low-order sign 
overpunch to be developed. 

.;!2>-' .Thiterna|tv'flbating-pb±nt -'items '.aire ''converted to'^iejcteamal! ■ 
■"■^ ■■■■■ftoat.inig-point.;^'' ■ '.:■v■■- 
3. No other data items require conversion. 

, For example, if three internal -decimal items have values of -3^, +3U, 
and 34, they are displayed as 3M, 34, and 34, respectively. 

If a figurative constant is specified as one of the operands, only a 
single occurrence of the figurative constant is displayed. 

Identifier may not be any Special Register except TA.LLY. 

When a DISPLAY statement contains more than one operand, the data 
contained in the first operand is s,tored as the first set of characters, 
and so on, unt^il the output record is filled. This operation continues 
until all information is displayed. Data contained in an operand may 
extend into subsequent records. 

Note: DISPLAY, EXfflBlf ,3JRi1!£v:A and WRITE AFTER 

ADVANCING statements all cause the printer to space before printing. 
However, a simple WRITE statement without any option given, or a WRITE 
BEFORE ADVANCING Statement both cause the printer to space after 
printing. Therefore, it is possible that mixed DISPLAY statements, 
^ffiLBl^y. isfcafe^^ and simple WRITE statements or WRITE BEFORE 
ADVANCING Statements within the same program may cause overprinting. 



CLOSE Statement 



The CLOSE statement terminates the processing of input and output 
reels, units, and files, witn optional rewind and/or lock where 
applicable. 



Format 



CLOSE file-name- 1 



[f ile-name-2 



"REEL" 



UNIT 



["REEL- 



UNIT 



t NO REWIND ) 
[WITH ] [ ] 

( LOCK ) 



(NO REWIN D I 
[WITH ] (■ ^ ^ 

^LOCK ) 



Each file-name is the name of a file upon which the CLOSE statement 
is to operate; it must not be the name of a sort-file. The file-name 
must be defined by a file-description entry in the Data Division. 
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CLOSE Statement 

The REEL and WITH NO REWIND options are applicable only to tape 
files. The UNIT option is applicable only to mass storage files in 
sequential access mode, 

A file may be closed more than once, but each CLOSE statement 
(without the REEL/UNIT option) must be preceded by an OPEN statement for 
that file. A file which is opened in a run unit must be closed within 
that run unit. 

For purposes of showing the effect of various CLOSE options as 
applied to various storage media, all input/output files are divided 
into the following categories: 

1. Unit record volume. A file whose input or output medium is such 
that rewinding, units, and reels have no meaning. 

2. Sequential single- volume. A sequential file that is entirely 
contained on one volume. There may be more than one file on this 
volume. 

3. Sequential multi volume. A sequential file that may be contained on 
more than one volume. 

4. Random single- volume. A file in the random access mode that may be 
contained on a single mass storage volume. 

5. Random multi volume. A file in the random access mode that may be 
contained on more than one mass storage volume. 

Note : See also "File Processing Summary" in the Environment Division, 
and "Appendix D: Summary of File Processing Techniques and Applicable 
Statements and Clauses". 



Sequential File Processing 

The results of executing each CLOSE option for each type of file are 
summarized in Figure 40. The definitions of the symbols in the 
illustration are given below. Where the definition of the symbol 
depends on whether the file is an input or output file, alternate 
definitions are given; otherwise, a definition applies to INPUT, OUTPUT, 
and I-O files. 

A--Previous Volumes Unaffected 

All volumes in the file prior to the current volume are processed 
according to standard volume switch procedures except those volumes 
controlled by a prior CLOSE REEL/UNIT statement. 

B — No Rewind of Current Reel 

The current volume is left in its current position. 

C--Standard Close File 

Files Opened as INPUT and I-O : If the file is positioned at its end 
and there is an ending label record, the standard ending label 
procedures and the user's ending label procedures (if specified by a 
USE sentence) are performed. System closing procedures are then 
performed. 

If the file is positioned at its end and there is no ending label 
record, system closing procedures are performed. 

222 Part IV — Procedure Division 



Page of GC28-6394-'4 , -5, -6 revised 12/03/76 by TNL GN26-0887 

CLOSE Statement 

If the file is positioned other than at its end, system closing 
procedures are performed but there is no ending label processing. .^n 
INPUT or an I-O file is considered to be at end-of-file if the 
imperative-statement in the AT END phrase has been executed and no 
CLOSE statem.ent has been executed. 



Files Opened as OUTPUT ; If an ending label record has been described 
for the file, it is constructed and written on the output medium. 
System closing procedures are performed. 



u — iatanaara Keex/unir. jjOCk 



This feature has no meaning in this system and is treated as 
comments. 



E--Standard File Lock 

The compiler ensures that this file cannot be opened again during 
this execution of the object program. Magnetic tapes are unloaded, 



F — Standard Close Volume 

Files Opened as INPUT and I-O ; The following operations are 
performed: 

1. A volume switch. 

2. The standard beginning volume label procedure and the user's 
beginning volume label procedure (if specified by the USE 
sentence) . The order of execution of these two procedures is 
specified by the USE sentence. 

3. Makes the next data record on the new volume available to be 
read. 

Files Opened as OUTPUT : The following operations are performed: 

1. The standard ending volume label procedure and the user's ending 
volume label procedure (if specified by the USE statement). The 
order of execution of these two procediires is specified by the 
USE statement. 

2. A volume switch. 

3. The standard beginning volume label procedure and the user's 
beginning volume label procedure (if specified by the USE 
statement) . The order of execution of these two procedures is 
specified by the USE statement. 

G — Rewind 

The current volume is positioned at its beginning. 

X— Illegal 

This is an illegal combination of a CLOSE option and a file type. 
The results at object time may be unpredicatable. 
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CLOSE Statement 



1 CLOSE ^'-'■^^^ 
1 Option 

L 


FILE 
Type 


1 Unit 
1 Record 

^5L 


-T 
1 




Sequential 
Single-Volume 


- i.. 




Sequential 
Multi volume 


1 CLOSE 




T 

1 c 




1 


c. 


G 






T 


C, 


G, A 


1 CLOSE 

1 WITH LOCK 




1 C, 


E 




c. 


G, 


E 






c. 


G, E, A 


1 CLOSE WITH 
1 NO REWIND 




1 X 






c. 


B 








c. 


B, A 


1 CLOSE REEL 




1 X 






X 










F, 


G 


1 CLOSE REEL 
1 WITH LOCK 




1 X 






X 










F, 


D, G 


1 CLOSE REEL 

1 WITH NO REWIND 


1 X 






X 










F, 


B 


1 CLOSE UNIT 




1 X 






X 










F 




1 CLOSE UNIT 
1 WITH LOCK 




1 X 






X 










F. 


D 



L X JL JL J 

Figure 40. Relationship of Types of Sequential Files and the Options of 
the CLOSE Statement 



Gigneral Considerations : A file is designated as optional by specifying 
the IGN parameter in the ASSGN control statement. If an optional file 
is not present, the standard end-of-file processing is not performed. 
For purposes of language consistency, the OPTIONAL phrase of the SELECT 
clause should be specified for this type of file. 

If a CLOSE statement without the REEL or UNIT option has been 
executed for a file, the next input/output statement to be executed for 
that file must be an OPEN statement. 



Random File Processing 



The results of executing each CLOSE option for each type of file are 
summarized in Figure 41. The definitions of the symbols in the figure 
are given below. Where the definition depends on whether the file is an 
INPUT or OUTPUT file, alternate definitions are given; otherwise, a 
definition applies to INPUT, OUTPUT and I-O files. 

H — Standard Close File 

Files Opened a s IN PUT a nd I-O: If there is an ending label record, 
the ending label record is checked, and the conventional system 
closing procedures are performed. If there is no ending label 
record, the system closing procedures are performed. For I-O files, 
the label is updated and written. 

Files Ope ned as O UTPUT : If an ending label record has been described 
for the file, it is constructed and written on the output medium. 
The system closing procedures are performed. 



224 



j^art XV — ir'roceaure uivision 



CLOSE Statement 



'^~ ~ Standard File Lock 

The compiler ensures that this file cannot be opened again during 
this execution of the object program. 




Random 
Single- Volume 



Random 
L^uiti volume 



H, J 



ti, J 



Figure 41. Relationship of Types of Random Files and the Options of the 
CLOSE Statement 
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SUBPROGRAM LINKAGE STATEMENTS 



Subprogram linkage statements are special statements that permit 
communication between object programs. These statements are CALL, 
ENTRY, GOBACK, and EXIT." 



CALL Statement 

The CALL statement permits communication betv?een a COBOL object 
program and one or more COBOL subprograms or other language subprograms. 



f 1 

I Format | 

,. _ „_ ^ 

I 1 

I CALL literal [ USING identifier-1 [identifier- 2] ...] j 

I ] 

L J 



Literal is a nonnumeric literal and is the name of the program that 
is being called, or the name of an entry point in the called program. 
The program in which the CALL statement appears is the calling program. 
Literal must conform to the rules for formation of a program-name. The 
first eight characters of literal are used to make the correspondence 
between the called and calling program. 

When the called program is to be entered at the beginning of the 
Procedure Division, literal must specify the program-name in the 
PROGRAM- ID paragraph of the called program, and the called program must 
have a USING clause as part of its Procedure Division header if there is 
a USING clause in the CALL statement that invoked it. 

When the called program is to be entered at entry points other than 
the beginning of the Procedure Division, these alternate entry points 
are identified by an ENTRY statement and a USING option corresponding to 
the USING option of the invoking CALL statement. In the case of a CALL 
statement with a corresponding ENTRY, literal must be a name other than 
the program-name but follows the same rules as those for the formation 
of a program-name. 

The identifiers specified in the USING option of the CALL statement 
indicate those data items available to a calling program that may be 
referred to in the called program. 

When the called subprogram is a COBOL program, each of the operands 
in the USING option of the calling program must be defined as a data 
item in the File Section, Working-Storage Section, or Linkage Section. 
If the called subprogram is written in a language other than COBOL, the 
operands of the USING option of the calling program may additionally be 
a file-name or a procedure-name. If the operand of the USING option is 
a file-name, the file with which the file-name is associated must be 
opened in the calling program. 

Names in the two USING lists (that of the CALL in the main program 
and that of the Procedure Division header or the ENTRY in the 
subprogram) are paired in a one-for-one correspondence. In the case of 
index-names, no such correspondence is established. 
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There is no necessary relationship between the actual names used for 
such paired names, but the data descriptions must be equivalent. ,rthen a 
group data item is named in the USING list of a Procedure Division 
header or an ENTRY statement, names subordinate to it in the subpro- 
gram's Linkage Section may be employed in subsequent subprogram 
procedural statements. 

When group items with level numbers other than 01 are specified, 
proper word- boundary alignment is required if subordinate items are 
described as COKPUTATIONAL, COMPUTATIONAL-1, or COMPUTATIONAL- 2. 

The USING option should be included in the CALL statement only if 
there is a USING option in tne called entry point, which is either 
included in the Procedure Division header of the called program or 
included in an ENTRY statement in the called program. The number of 
operands in the USING option of the CALL statement should be the same as 
the number of operands in the USING option of the Procedure Division 
header, or ENTRY statement. If the number of operands in the USING 
option of the CALL statement is greater than the number in the USING 
option in the called program, only those specified in tne USING option 
of the called program may be referred to by the called program. 

The execution of a CALL statement causes control to pass to the 
called program. The first time ,a called program is entered, its state 
is that of a fresh copy of the program. Each subsequent time a called 
program is entered, the state is as it was upon the last exit from that 
program. Thus, the reinitialization of the following items is the 
responsibility of the programmer: 

GO TO statements which have been altered 

TALLY 

Data items 

ON statements 

PERFORM Statements 

EXHIBIT CHANGED Statements 

EXHIBIT CHANGED NAMED Statements 

EXHIBIT CHANGED and EXHIBIT CHANGED NAMED Operands will be compared 
against the value of the item at the time of its last execution, whether 
or not that execution was during another CALL to this program. If a 
branch is made out of the range of a PERFORM, after which an exit is 
made from the program, the range of that PERFORM is still in effect upon 
a subsequent entry. 

Called programs may contain CALL statements. However, a called 
program must not contain a CALL statement that directly or indirectly 
calls the calling program. 

A called program may not be segmented. 



ENTRY Statement 



The ENTRY statement establishes an entry point in a COBOL subprogram. 



r T 

I Format | 

Y -I 

I I 

I ENTRY literal [ USING identifier-1 [identifier- 2] ...] | 

I I 

L . J 
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ilJSE}^ Option 

Control is transferred to the ENTRY point by a CALL statement in an 
invoking program. 

Literal must not be the name of the called program, but is formed 
according to the same rules followed for program- names. Literal must 
not be the name of any other entry point or program-name in the run 
unit. 

A. called program, once invoked, is entered at that ENTRY statement 
whose operand, literal , is the same as the literal specified in the CALL 
statement that invoked it. 



USING Option 

The USING option makes data items defined in a calling program 
available to a called program. The number of operands in the USING 
option of a called program must be less than or equal to the number of 
operands in the corresponding CALL statement of the invoking program. 

The USING option may be specified in the CALL statement, the ENTRY 
statement, or in the Procedure Division header. 



I Format 1 (Within a Callina Program) 

|. 

I 

I CALL literal [ USING identifier-1 [identif ier-2] . . - ] 

I 

L 



j Format 2 (Within a Called Program) j 

l^ ^ 

O ption 1 

ENTRY literal [ USING identifier-1 [identif ier-2] ] 

1^ ^ 

Option 2 

PROCEDURE DIV ISION [ USING identifier-1 [identif ier-2] ...] . 

L J 



When the USING option is specified in the CALL statement, it must 
appear on either the Procedure Division header of the called program, or 
in an ENTRY statement in the called program. 

The USING option may be present on the Procedure Division header or 
in an ENTRY statement, if the object program is to function under the 
control of a CALL statement, and the CALL statement contains a USING 
option. 

When a called program has a USING option on its Procedure Division 
header and linkage was effected by a CALL statement where literal is the 
name of the called program, execution of the called program begins with 
the first instruction in the Procedure Division after the Declaratives 
Section. 
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Q^ING option 

When linkage to a called program is effected by a CALL statement 
where literal is the name of an entry point specified in the ENTRY 
statement of the called program, that execution of the called program 
begins with the first statement following the ENTRY statement. 

Each of the operands in the USING option of the Procedure Division 
header or the ENTRY statement must have been defined as a data item in 
the Linkage Section of the program in which this header or ENTRY 
statement occurs, and must have a level number of 01 or 77. Since the 
compiler assumes that each level-01 item is aligned upon a double-word 
boundary, it is the progirammer's responsibility to ensure proper 
alignment. 

When the USING option is present, the object program operates as 
though each occurrence of identif ier-1 , identifier- 2 , etc., in the 
Procedure Division had been replaced by the corresponding identifier 
from the USING option in the CALL statement of the calling program. 
That is, corresponding identifiers refer to a single set of data which 
is available to the calling program- The correspondence is positional 
and not by name. In the case of index-names, no such correspondence is 
established. 

The following is an example of a calling program with the USING 
option: 

IDENTIFICATION DIVISION. 
PROGRAM-ID. CALLPROG. 



DATA DIVISION. 



WORKING- STORAGE SECTION. 
01 RECORD-1. 

03 SALARY PICTURE S9(5)V99. 

03 RATE PICTURE S9V99. 

03 HOURS PICTURE S99V9. 



PROCEDURE DIVISION. 



CALL "SUBPROG" USING RECORD-1. 



CALL "PAYMASTR" USING RECORD-1- 
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USING Option 

The following is an example of a called subprogram associated with 
the preceding calling program: 

IDENTIFICATION DIVISION. 
PROGRAM-ID. SUBPROG. 



DATA DIVISION. 



LINKAGE SECTION. 
01 PAYRLC. 

2 PAY PICTURE S9(5)V99. 

02 HOURLY- RATE PICTURE S9V99. 

02 HOURS PICTURE S99V9. 



PROCEDURE DIVISION USING PAYREC . 



GOBACK. 

ENTRY "PAYMASTR" USING PAYREC. 



GOBACK. 

Processing begins in CALLPROG, which is the calling program. When the 
statement 

CALL "SUBPROG" USING RECORD-1. 

is executed, control is transferred to the first statement of the 
Procedure Division in SUBPROG, which is the called program. In the 
calling program, the operand of the USING option is identified as 
RECORD-1. 

When SUBPROG receives control, the values within RECORD-1 are made 
available to SUBPROG; in SUBPROG, however, they are referred to as 
PAYREC. Note that the PICTURE clauses for the subfields of PAYREC 
(described in the Linkage Section of SUBPROG) are the same as those for 

RECORD-1. 

When processing within SUBPROG reaches the first GOBACK statement, 
control is returned to CALLPROG at the statement immediately following 
the original CALL statement. Processing then continues in CALLPROG 
until the statement 

CALL "PAYMASTR" USING RECORD-1. 

is reached. Control is again transferred to SUBPROG, but this time 
processing begins at the statement following the ENTRY statement in 
SUBPROG. The values within RECORD-1 are again made available to SUBPROG 
through the matching USING operand PAYREC. When processing reaches the 
second GOBACK statement, control is returned to CALLPROG at the 
statement immediately following the second CALL statement. 
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Program Termination 

In any given execution of these two programs, if the values within 
RECORD-1 are changed between the time of the first CALL and the second, 
the values passed at the time of the second CA.LL statement will be the 
changed, not the original, values. If the programmer wishes to use the 
original values, then he must ensure that they have been saved. 



Program T ermination Consid e rations 

There are three ways in COBOL source language to terminate a program. 
They are: 

1. EXIT PROGRAM 

2 . GOBACK 

3. STOP RUN 

Figure 42 shows the effect of each program termination statement 
based on whether it is issued within a main program or a subprogram. 

A main program is the highest level COBOL program invoked in a step. 
A subprogram is a COBOL program that is invoked by another COBOL 
program. (Programs written in other languages that follow COBOL linkage 
conventions are considered COBOL programs in this sense.) 



r T 

Termination 
Statement j Main Program j Subprogram 



-+- 



EXIT 
PROGRAM 

STOP RUN 



GOBACK 



Non-operational 



Return to system 
and cause end of 
job step (EOJ macro) 

Abnormal termination 
of job 



Return to invoking 
program 

Return to system 
and cause end of 
job step (EOJ macro) 

Return to invoking program 



Figure 42. Effect of Program Termination Statements Within Main 
Programs and Subprograms 
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EXIT PROGRAM Statement 



This form of the EXIT statement marks the logical end of a called 
program. 



r 1 

I Format | 

|. ^ 

I I 

I paragraph-name. EXIT P ROGRAM . | 

I I 

L J 



The EXIT statement must be preceded by a paragraph- name and be the 
only statement in the paragraph. 

If control reaches an EXIT PROGRAM statement while operating under 
the control of a CALL statement, control returns to the point in the 
calling program immediately following the CALL statement. 

If control reaches an EXIT PROGRAM statement and no CALL statement is 
active, control passes through the exit point to the first sentence of 
the next paragraph. 



GOBACK Statement 



The GOBACK statement marks the logical end of a called program. 



r 1 

I Format | 

j. ^ 

I I 

I GOBACK . I 

I I 

L J 



A GOBACK Statement must appear as the only statement or as the last 
of a series of imperative-statements in a sentence. 

If control reaches a GOBACK statement while operating under the 
control of a CALL statement, control returns to the point in the calling 
program immediately following the CALL statement. 

If control reaches a GOBACK statement and no CALL statement is 
active, there will be an abnormal termination of the job. 



STOP RUN Statement 



For a discussion of the STOP statement with the RUN option, see 
'Procedure Branching Statements." 
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ENTER/NOTE Statements 
COMPILER-DIRECTING STATEMENTS 



Compiler directing statements are special statements that provide 
instructions for the COBOL compiler. The compiler directing statements 
are COPY, ENTER, and NOTE. 



COPY Statement 

Prewritten source program entries can be included in a COBOL program 
at compile time. Thus, an installation can utilize standard file 
descriptions, record descriptions, or procedures without having to 
repeat programming them. These entries and procedures are contained in 
user-created libraries. They are included in a source program by means 
of a COPY statement (see "Source Program Library Facility"). 



ENTER Sta tement 

The ENTER statement serves only as documentation and is intended to 
provide a means of allowing the use of more than one source language in 
the same source program. This compiler allows no other source language 
in the program. 



r 1 

I Format | 

I. ^ 

I I 

I ENTER lanauage-name [routine- name] . | 

i ' i 

L J 



The ENTER Statement is accepted as comments. 



NOTE Statement 

The NOTE statement allows the programmer to write commentary which 
will be produced on the source listing, but not compiled. 




Any combination of the characters from the EBCDIC set may be included 
in the character string . 
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NOTE Statement 

If a NOTE sentence is the first sentence of a paragraph, the entire 
paragraph is considered to be part of the character string . Proper 
format rules for paragraph structure must be observed. 

If a NOTE sentence appears as other than the first sentence of a 
paragraph, the commentary ends with the first instance of a period 
followed by a space. 

Explanatory coitiinfints may be inserted on any line within a source 
program by placing an astJerisk ±n column 7 of the line. Any combination 
of the characters frcxn the EBCDIC set may be included in Area A and 
Area B'of that line. The as|:erisk and the characters will be produced 
on the .listing, but serve no- other purpose. 
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PART V — SPECIAL FEATURES 



SORT FEATURE 



• REPORT WRITER FEATURE 



• TABLE HANDLING FEATURE 



• SEGMENTATION FEATURE 



• SOURCE PROGRAM LIBRARY FACILITY 



• DBfeSGGIHG I^iiaGaWGE '■ 
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Sort Feature — Description 
SORT FEATURE 



The COBOL programmer can gain convenient access to the sorting 
capability of the system sort/merge program by including a SORT 
statement and other elements of the Sort Feature in his source program. 
The Sort Feature provides the capability for sorting files and including 
procedures for special handling of these files both before and after 
they have been sorted. Within the limits of object- time storage, a 
source program may have any number of SORT statements, and each SORT 



The basic elements of the Sort Feature are the SORT statement in tne 
Procedure Division and the Sort-File-Description (SD) entry, with its 
associated record description entries, in the Data Division. A sorting 
operation is based on sort-keys named in the SORT statement. A sort-key 
specifies the field within a record on which the file is sorted. 
Sort-keys are defined in the record description associated with the SD 
entry. The records of a file may be sorted in ascending or descending 
order or "in a mixtxire of the two; that is, the sort-keys may be 
specified as ascending or descending, independent of one another, and 
the sequence of the sorted records will conform to the mixture 
specified. Additional information on the Sort Feature can be found in 
the Programmer's G uide. ' 

Note : Language considerations for an ASCII-collated sort are given in 
Appendix E. 



ELEMENTS OF THE SORT FEATURE 

To use the Sort Feature, the COBOL programmer must provide additional 
information in the Environment, Data, and Procedure Divisions of the 
source program. 

The SORT statement in the Procedure Division is the primary element 
of a source program that performs one or more sorting operations. The 
term "sorting operation" means not only the manipulation by the Sort 
Program of sort-work-files on the basis of the sort-keys designated by 
the COBOL programmer, but also includes the method of making records 
available to, and retrieving records from, these sort-work-files. A 
sort- work-file is the collection of records that is involved in the 
sorting operation as it exists on an intermediate device (s). Records 
are made available either by the USING or INPUT PROCEDURE options of the 
SORT statement. Sorted records are retrieved either by the GIVING or 
OUTPUT PROCEDURE options of the SORT statement. 

In the Environment Division, the programmer must write SELECT 
sentences for all files used as input and output to the Sort Program 
andfor the sort-fi^e^. *lifi!^^ 

In the Data Division, the programmer must include File Description 
entries (FD) for all files that are used to provide input to or output 
from the sort program and for the sort file- He must also write a 
Sort-File-Description (SD) entry and its associated record description 
entries to describe the records that are to be sorted, including their 
sort-key fields. 
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SELECT Sentence — GIVING Option 

In the Procedure Division SORT statement, the programmer specifies 
the sort-file to be sorted, and the sort-key names. He must also 
specify whether the sort is to be in ascending or descending sequence by 
key, and whether records are to have special processing. If there is to 
be such processing, he also includes in the Procedure Division the 
program sections that perform the processing. Special, SORT registers,, 
if used, are referenced in the Procedure Division. , . , 



ENVIRONME^IT DIVISION CONSIDERATIONS FOR SORT 



There are certain statements the programmer must include in the 
Environment Division to use the Sort Feature. Detailed descriptions of 
these statements follow. 



INPUT- OUTPUT SECTION 



The Input-Output Section is composed of two parts 
Paragraph and the I-0-Control Paragraph. 



the File-Control 



File-Con t rol Paragraph 



The File-Control Paragraph is specified once in a COBOL program. 
Within this paragraph, all files referred to in the source program must 
be named in a SELECT clause. 

Files used within input and output procedures and files named in the 
USING and GIVING options of the SORT statement are named in the SELECT 
clause as described in "Environment Division." The file named in the 
GIVING option of the SORT statement can alternately be described in the 
following format. 



Format 



SELECT file-name 



ASSIGN TO [integer-l] system-name-1 [system-name-2] . 

f REEL I 
OR system-name-3 [FOR MULTIPLE ] [ ] 

(UNIT J 



[RESERVE 



integer- 2 

NO 



ALTERNATE 



(AREA ) 

/areas) 



L J 



The OR option is neither required nor used by this compiler, and is 
treated as comments. 



O/^.P. -P;::^^^- \7 
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SELECT sort-file-name 

The MULTIPLE clause function is specified by object time control 
cards; hence, the MULTIPLE clause is neither required nor used by this 
compiler. The RESERVE clause is applicable as described in the 
"Environment Division" chapter. 



Assignment of Sort Work Units 

The File Control paragraph must be specified for the sort file and is 
used to assign work units for the sorting operation. 



r 1 

I Format | 

I. ^ 

SELECT sort-file-name 

ASSIGN TO [integer] system-name-1 [system-name- 2] ... 

L J 



sort-file- name ; the name used as the first operand of the SORT 

statement (also the name associated with the SD entry for the 
sorting operation) . 

integer; specifies the number of work units available to the Sort 

Program. From one through eight units may be assigRed for a disk 
sort. From three through nine units may be assigned for a tape 
sort. If integer is not specified, the compiler assumes one unit 
for a disk sort and three units for a tape sort. 

system- name- 1 ; created in the same format as the system-name in other 

ASSIGN clauses (see "Environment Division"). However, the names by 
which the work files are known to the Sort Program are fixed. 
System-name-1 must always contain the symbolic unit number SYSOCl. 
If the sort work files have standard labels, system-name-l must 
specify a name field of S0RTWK1 . The class and organization fields 
are treated as comments. Class will always default to UT, and 
organization will always default to S. 

Inte ger work units beginning with the first are reserved for the 
sorting operation. The user may, if he wishes, specify these additional 
work units in multiple system-names . However, the compiler treats these 
as documentation. Instead, the second work unit is assigned to s:fS0&2 
with name S0RTWK2, the third to SYS003 witn name S0RTWK3, etc. 

For example, the SELECT sentence for a sort-file with standard 
labels, which has five work units (tape) available, would be: 

SELECT SORTFILE 

ASSIGN TO 5 SYSOOl-UT-2400-S-SORTWKl. 

SYSOOl through SY3005 are assigned by the compiler to the work units. 



I-0-CONTROL Paragraph 

Tne I-0-Control paragraph specifies when checkpoints are to be taken, 
as well as what core storage area is to be shared by different files. 
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^lilliil/'SAME AREA Clauses 

The I-0-Control paragraph is coded once in the source program. The 
checkpoint interval associated with the standard RERUN format (specified 
in the "Environment Division") is determined by the numoer of records 
processed for the given file. However, the format has meaning only when 
a file is not being used in a sorting operation. Obtaining checkpoint, 
records within the operatioii of a SORT statemeint X3 specified by a 
special format of the RERUN statement, as described below. 



iiiiiiiiiiiiiiiiiil^^^^^ 

||.;;;|:::;:;?|:|p| 
■;;B|)|*ear;S;::i3^ 

;;;;;;;;;■;;:;■ -St ■■■;tl3^ 

SAME RE CORD/SORT AREA Clau se 

The SAME RECORD/SORT AREA clause Specifies that two or more files are 
to use the same storage area during processing. 

r ^ 

I Format | 

Y ^ 

I I 

I { RECORD 

I SAME j \ AREA FOR file-name-1 {f ile-name-2} ... 
I ( SORT 



The RECORD option is used when only FD or mixed FD and SD files are 
named. The named files share only the processing area of the current 
logical record. Although several of the files may be open at the same 
time, only the logical record of one of these files can exist in the 
record area at one time. 

The SORT option is used when only SD files are named. Its function 
is to optimize the assignment of storage areas to a given SORT 
statement. The system will handle storage allocation automatically; 
hence, the SORT storage option, if given, will be ignored. 
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SD (sort-file description) Entry 

DATA. DIVI SI ON CONSIDERATIONS FOR SORT 

In the Data Division the programmer must include File Description 
entries for files that are input to or output from the Sort, 
sort-file-description entries which describe the records as they appear 
on the sort work files, and record description entries for each. 



FILE SECTION 

The File Section of a program which contains a sorting operation must 
furnish information concerning the physical structure, identification, 
and record names of the sort work file. This is provided in the 
sort-file-description entry. 



' Sort-File Description 

A sort-file-description entry must appear in the File Section for 
every file named as the first operand of a SORT statement. 



r 1 

I Format | 

j. ^ 

SD sort- file- name 



i RECORD IS ^ 
[DATA ] [ data-name-1 [data-name-2] ...] 

I RECORDS ARE) 

[ RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS] 

x-xs; 





L J 



There must be a SELECT sentence for sort-file- name that describes the 
system- name for the sort work file. Sort-file-name is also the name 
specified in the SORT statement. 

„...,^""'. . ,' 1 s~-S.^'. zj." ' ... .- .- z... "i .'" .. ..r.,".. The 

recording mode must be F or V. 
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Sort — Procedure Division Considerations 

The DATA RECORDS clause specifies the names of the records in the 
file to be sorted. Pata-name- l^ data-name- 2 , ... of the DATA RECORDS 
clause refer to the records described in the record descriptions 
associated with this SD. 

The RECORD CONTAINS clause specifies the size of data records in the 
file to be sorted. This clause is optional. The actual size and mode 
(fixed or variable) of the records to be sorted are determined from the 
level- 01 descriptions associated with a given SD entry. When the USING 
and GIVING options of the SORT statement are used, the record length 
associated with the SD must be the same length as the record associated 
with the FD's for the USING and GIVING files. If any of the SD data 
record descriptions contains an OCCURS clause with the DEPENDING ON 
option, variable- length records are assumed. Refer to "Data Division" 
for the format ass\imptions that are made by the compiler when the 
RECORDING MODE clause is not specified. 

Both the DATA RECORDS and the RECORD CONTAINS clauses are described 
in "Data Division." 

lliiiiiiiiiSiiiiiMiiiiiiiM 
liHiliiBiliiiiliiBiH 

BBpiiiiiiiBliiilliilliHi^^ 



PROCEDURE DIVISION CONSIDERATIONS FOR SORT 

The Procedure Division must contain a SORT statement to describe the 
sorting operation and, optionally, input and output procedures. The 
procedure-names constituting the input and output procedures are 
specified within the SORT statement. 

The Procedure Division may contain more than one SORT statement 
appearing anywhere except in the declaratives portion or in the input 
and output procedures associated with a SORT statement. 

Note : If DISPLAY or EXHIBIT is used in an input or output procedure 
of a SORT verb, each time DISPLAY or EXHIBIT is executed SYSLST will 
be opened since it is closed by SORT. To achieve a good performance 
of a COBOL program, the DISPLAY and EXHIBIT verbs should only be used 
for debugging purposes in input or output procedures for SORT. 



SORT Sta tement 

The SORT statement provides information that controls the sorting 
operation. This information directs the sorting operation to obtain 
records to be sorted either from an input procedure or the USING file to 
sort the records on a set of specified sort keys, and in the final phase 
of the sorting operation to make each record available in sorted order, 
either to an output procedure or to the GIVING file. 
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Format 



SORT Statement 

1 

1 
-I 



SORT file-name-1 ON 



i DESCENDING i 

] [ KEY {data-name-1} 

(ASCENDING ) 



[ON 



( DESCENDING 



( ASCENDING 



KEY {data-name- 2} . - . ] 



(INPUT PROCEDURE IS section-name-1 [ THRU section-name-2]\ 
1 USING file-name- 2 j 

( OUTPUT PROCEDURE IS section-name-3 [ THRU section-name- 4 ]"> 
1 GIVING file-name-3 | 

L J 



File-name-1 is the name given in the sort-file-description entry that 
describes the records to be sorted. 



ASCENDING and DESCENDING : The ASCENDING and DESCENDING options specify 
whether records are to be sorted into an ascending or descending 
sequence, respectively, based on one or more sort keys. 

Each data- name represents a "key" data item and must be described in 
the records associated with the sort-file-name. 

At least one ASCENDING or DESCENDING clause must be specified. Both 
options may be specified in the same SORT statement, in which case, 
records are sorted on data-name-1 , in ascending or descending order, and 
then within data-name-1, they are sorted on the KEY data item 
represented by data-name- 2 , in ascending or descending order, etc. 

Keys are always listed from left to right in order of decreasing 
significance, regardless of whether they are ascending or descending. 

The direction of the sort depends on the use of the ASCENDING or 
DESCENDING clauses as follows: 

1. When an ASCENDING clause is used, the sorted sequence is from the 
lowest value of the key to the highest value, according to the 
collating sequence for the COBOL character set. 

2. When a DESCENDING clause is used, the sorted sequence is from the 
highest value of the key to the lowest value, according to the 
collating sequence of the COBOL character set. 

Sort keys must be one of the types of data item listed in Figure 43. 
Corresponding to each type of data item is a collating sequence that is 
used with it for sorting. 

A character in the EBCDIC collating sequence (used with alphabetic, 
alphanumeric, etc., data items) is interpreted as not being signed. For 
fixed-point and internal floating-point numeric data items, characters 
are collated algebraically (that is, as being signed). 
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SORT Statement 



r T" 

I Type of Data Item Used for Sort Key | 

1- 



Collating Sequence 



-+ 

I EBCDIC 

I EBCDIC 

[EBCDIC 

[EBCDIC 

j Zoned Decimal 

I Fixed Point 

IFikse^d paint 

iJFp.oeetd.ng »Poa«it- 



Alphabetic 

Alphanumeric 

Numeric Edited 

Group 

External Decimal 

Binary 




■\* 



i !■ 



Figure 43. SORT Collating Sequences Used for Sort Keys 



The EBCDIC collating sequence for COBOL characters in ascending order 



is: 

1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 
10. 
11. 
12. 
13. 

15. 

16. 
17-42. 
43-52. 



(space) 

(period or decimal point) 

(less than) 

(left parenthesis) 

(plus symbol) 

(currency symbol) 

(asterisk) 

(right parenthesis) 

(semicolon) 

(hyphen or minus symbol) 

(stroke, virgule, slash) 

( comma ) 

(greater than) 

= (equal sign) 
" (quotation mark) 
h through Z 
through 9 



/ 



(The complete EBCDIC collating sequence is given in IBM System/360 
Reference Data , Order No. X20-1703.) 

The record description for every record that is listed in the DATA 
RECORDS clause of an SD description must contain the "key" items 
data- name- 1 , data- name- 2 , etc. These "key" items are subject to the 
following rules: 

1. Keys must be physically located in the same position and have the 
same data format in every logical record of the sort-file. If 
there are multiple record descriptions in an SD, it is sufficient 
to describe a key in -only one of the record descriptions. 

2. Key items must not contain an OCCURS clause nor be subordinate to 
entries that contain an OCCURS clause. 

3. A maximum of 12 keys may be specified. The total length of all the 
keys must not exceed 256 bytes. 

4. All keys must be at a fixed displacement from the beginning of a 
record; that is, they cannot be located following a variable table 
in a record. 

5. All key fields must be located within the first 4092 bytes of a 
logical record. 

6. The data-names describing the keys may be qualified. 
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SORT Statement 

SECTION- NAME- 1 AND SECTION- N^ME- 2 : Section-name-1 is the name of an 
input procedure. Section-name- 2 is the name of the last section that 
contains the input procedure in the COBOL main program. Section-natne-2 
is required if the procedure terminates in a section other than that in 
which it was started. 



INPUT PROCEDURE ; The presence of the INPUT PROCEDURE option indicates 
that the programmer has written an input procedure to process records 
before they are sorted and has included the procedure in the Procedure 
Division as one or more distinct sections. 

The input procedure must consist of one or more sections that are 
written consecutively and do not form, a part of any output procedure. 
The input procedure must include at least one RELEASE statement in order 
to transfer records to the sort-file. 

Control must not be passed to the input procedure unless a related 
SORT statement is being executed, because the RELEASE statement in the 
input procedure has no meaning unless it is controlled by a SORT 
statement. The input procedure can include any procedures needed to 
select, create, or modify records. There are three restrictions on the 
procedural statements within an input procedure: 

1. The input procedure must not contain any SORT statements. 

2. The input procedure must not contain any transfers of control to 
points outside the input procedure. Tiie eacecStttdDn <xt a CAUL 

'^^^^i^^m^cit^f^L-k^sgy^'^x!' prbgririEri 'fcifett: ie;o'llc«*s st^indatd 'li,Tiikag-e 
-dairtsS^'titw&, -b^r the execution of USE declaratives for label 
handling and error processing are not considered transfers of 
control outside of an input procedure. Hence, they are allowed to 
be activated within these procedures. 



B^ii-ier teirniife ;0a.e. khTER, 60 TO, and ^PERFORM ^ 

,.,,-,-,,,■,, ^ - , e'l »iyp#r jp^rc^b^i^^' "^ 'tieffer to-''plr?oce*dii:fe-nafMesf"-^i: 'i-;: 
qqtsi<fc' <'tlhe! fiiiput prjob^ure.' , T'£ ,i"s^ the 'user's xesponsibillty to • • 
fijn^Jiir]^ ^^i' I'^rabtirii 'to t.be jiaipot ^jfcldceclure a'f ter exiting through a Gt> 
TO cw:; ''Pmbcmi stateaient.' ''_':!*' 

3. The remainder of the Procedure Division must not contain any 

transfers of control to points inside the input procedure (with the 
exception of the return of control from a declarative section) . 

fifowe^ror, this dorn^il-er allowsa ALTER J, GQ TO,, dnd. PERI'ORM statetfterit^ ' 
ip, thie remainder of the Procedure Division 'to refer to 
pjrocedfUre-names within th,e Ipput Procedure. If a SORT sitatement i% 
active "wheh the transfer of control is made, then all such ' ^ 
trans^'ers are valid. If a SORT statement is not active, however, 
then the user must ensure that such a transfer of control does not 
cause: 

a. a! RELEASE statement to be executed 

b.i qdntrol to reach the end of the Input Procedure 

If an input procedure is specified, control is passed to the input 
procedure when the SORT program input phase is ready to receive the 
first record. The pomipiler inserts a return mechanism at the end of the 
last section of the input procedure and, when control passes the last 
statement in the input procedure, the records that have been released to 
file-name-1 are sorted. 

The RELEASE Statement transfers records from the Input -Procedure to 
the input phase of tne sort operation (see "RELEASE statement") . 
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SORT Statement 

USING : If the USING option is specified, all the records in file-name-2 
are transferred automatically to f ile-name-1 . ,,^t^-%he--Jtlme of execution 
of the SORT ^^^aj^ement, file-name-2 . must not be open. File-name^^^~2^ust 
£fe— a~-et^n3ard sequential file. 

For the USING option, the compiler will open, read, release, and 
close file-name-2 without the programmer specifying these functions. If 
the user specifies error handling and/or label processing declaratives 
for file-name-2, the compiler will make the necessary linkage to the 
appropriate declarative section. 

SECTION- NAME- 3 AND SECTION-HAME-U : Section- name- 3 represents the name 
of an output procedure. Section-name- 4 is the name of the last section 
that contains the output procedure in the COBOL main program. 
Section-name-4 is required if the procedure terminates in a section 
other than that in which it is started. 

OUTPUT PROCEDURE : The output procedure must consist of one or more 
sections that are written consecutively and do not form a part of any 
input procedure. The output procedure must include at least one RETURN 
statement in order to make sorted records available for processing. 

Control must not be passed to the output procedure unless a related 
SORT statement is being executed, because RETURN statements in the 
output procedure have no meaning unless they are controlled by a SORT 
statement. The output procedure may consist of any procedures needed to 
select, modify, or copy the records that are being returned one at a 
time, in sorted order, from the sort-file. There are three restrictions 
on the procedural statements within the output procedure. 

1. The output procedure must not contain any SORT statements. 

2. The output procedure must not contain any transfers of control to 
points outside the output procedure. Th«:'execiiticfti ojf d icfti^||| 
statjepient t|3. :ianpther . .pi^poK^Kj , .;|,|iptfefc,|iEpg|,lQiipiHi!St^iiBi^aj3dh.|ij 
qqiiiireEitiqnsy km the execution of USE declaratives for label 
handling and error processing are not considered transfers of 
control outside of an output procedure. Hence, they are allowed to 
be activated within these procedures. 

Hawev^er, this compiler permits the fJJIEFi, jGO !», and PERFORM 
stkteineixts in the output proci^duwe to refer to pr(doe<Siire-nanjles. 
oiUtsi|de the output procedure. ,« It is the user*s resipcmsibility to 
ipiMsurje; a return to the output fprcfc^dtire aft^r '^isciting jhWropg!fei*^ia!GO 
TO ox PERFORM statement. i ; •; '?.^ .. * ' I ,<i ^ h]i,iu^ ' - 

3. The remainder of the Procedure Division must not contain any 
transfers of control to points inside the output procedure (with 
the exception of the return of control from a declarative section) . 

However, this compiler allows ALTER, GO TO, and PERiFORM sta,tements 
i^n the remainder of the Procedure Division to refer tjq \ ' 
pirdcedure-names within the Output Procedure. If a SCJRT staft^^nent 
is active when the transfer of control is lna.de, \Aidn !a|ll s\ic)x 
transfers are valid. If a SORT statement is not acfti|;fe, tec^wWer, 
then the user must ensure that such a transfer of cxm|:^ol - ci>eg! not 
cjaiise: :■■.■■ _ ; r ' */-li- f y^t%^ 

a, a RETURN statement to be executed " . -^ . 

hp Gontrpl to reach the end of the Output Procedure '' -*- 

If an output procedure is specified, control passes to it after 
file-name-1 has been placed in sequence by the SORT statement. The 
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RELEASE Statement 

compiler inserts a return mechanism at the end of the last section in 
the output procedure- When control passes the last statement in the 
output procedure, the return mechanism provides for termination of the 
SORT and then passes control to the next statement after the SORT 
statement. 

When all the records are sorted, control is passed to the output 
procedure. The RETURN statement in the output procedure is a request 
for the next record (see "RETURN Statement"). 



GIVING ; If the GIVING option is used, all sorted records in file-name- 1 
are automatically transferred to f ile-jiame-3 . At the time of execution 
of the SORT statement, file-name- 3 must not be open. File-name- 3 must 
name a standard sequential file. 

For the GIVING option, the compiler will open, return, write, and 
close f ile-name-3 without the programmer specifying these functions. If 
the user specifies error handling and/or label processing declaratives 
for f ile-name-3, the compiler will make the necessary linkage to the 
appropriate declarative section. 

CONTROL OF INPUT OR OUTPUT PROCEDURE S; The INPUT or OUTPUT PROCEDURE 
options function in a manner similar to the PERFORM statement 
(Option 1); for example, naming a section in an INPUT PROCEDURE clause 
causes execution of that section during the sorting operation to proceed 
as though that section had been the subject of a PERFORM statement. As 
in the execution of a PERFORM statement, the execution of the section is 
terminated after execution of its last statement. The procedure may be 
terminated by an EXIT statement (see "EXIT Statement"). 



RELEASE Statement 



The RELEASE Statement transfers records from the Input Procedure to 
the input phase of the Sort operation. 




A RELEASE Statement may be used only within the range of an input 
procedure associated with a SORT statement. 

If the INPUT PROCEDURE option is specified, the RELEASE statement 
must be included within the given set of procedures. 

Sort-record-name must be the name of a logical record in the asso- 
ciated sort-file description. 

When the FROM identifier option is used, it makes the RELEASE 
statement equivalent to the statement MOVE identifier TO 
sort-record-name , followed by the statement RELEASE. 
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RETURN/EXIT Statements 

Sort- record-name and identifier must not refer to the same storage 
area. A move with the rules for group items is effected from 
identifier, using the length of the record-name associated with the SD 
entry. 

After the RELEASE statement is executed, the logical record is no 
longer available. When control passes from the input procedure, the 
file consists of those records that were placed in it by the execution 
of RELEASE Statements. 



RETURN Statement 

The RETURN statement obtains individual records in sorted order from 
the final phase of the sort program. 

r 1 

I Format | 

|. -I 

RETURN sort-file-name RECORD [ INTO identifier] 
AT END imperative-statement 

L J 

Sort- file-name is the name given in the sort-file-description entry 
that describes the records to be sorted. 

All references to records retrieved by a RETURN statement must be in 
terms of the record description (s) associated with the SD entry, unless 
the INTO option is specified. The retrieved record may, optionally, be 
moved to the user's own area and be referenced as appropriate. 

A RETURN statement may only be used within the range of an output 
procedure associated with a SORT statement for file-name-1. 

The identifier must be the name of a working- storage area or an 
output record area. Use of the INTO option has the same effect as the 
MOVE statement for alphanumeric items . 

The imperative- statement in the AT END phrase specifies the action to 
be taken when all the sorted records have been obtained from the sorting 
operation. 

After execution of the imperative-statement in the AT END phrase, no 
RETURN statements may be executed within the current output procedure. 



EXIT Statement 

The EXIT statement may be used as a common end point for input or 
output procedures as with procedures executed through a PERFORM 
statement. 

r T 

I Format | 

j. ^ 

I I 

I paragraph-name. EXIT . | 

I I 

L . J 
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0<^g^ia*k2^ 



When used in this manner, the EXIT statement must appear as the only 
statement in the last paragraph of the input or output procedure. 





SPECIAI>- Rfe6IStieRS,iFpR, ^OqT 



Four special regi-Sters- ajriefrSrtraifjMtaigli^^'"*' " 
These registers provide a tnea^ oif ;o>tr^e^*t; i^iaaife 
user and the Sort Feature, eai^ they aid -ifTil tli^ 
performance. • '. j ; ■ ,; ■ j ■' I i .' '■ t ; f-i | M i'i 



The first three registers Way h^ve Icantaol dijf}dr^tii| 
them at object time if the usser specif desj them SkS 't.tie iredetivij 
of statements such as MOVE. However, ;ncaie of the Sort regiissterS' cd 
used as operands in ACCEPT, E^ISPLAY, or EXHIBIT jstateinMints:.' i tHb 
information must be passed before th^ SORT statement is exeiciited^ 
registers are initialized to zero by the compiler, bqt ,are not «ra; 
after a sort procedure is exe^cuted. Thus,, ifi .a progxam has imultli^piliel! 
SORT statements, any values i,n the registers at the complietijon of .o 
sorting operation will be in the regist,ers at the beginning of acnrotfcl 
unless modified. 

1. SORT-FILE-SIZE is the name of a binary data item whose iPICTORE Jijs 
S9(8). It is used for the estimated number of recor^ds in the tiile 
to be sorted. If SORT-FILE-SIZE is omitt^ed, the Sort Feattfre j; j ^ 
assumes that the file contains the maximum number of records tt^att 
can be processed with the available core size and nianber of 'wot^ '[ 
units. If the estimate exceeds the maximum, the estimate will !be 
ignored. ! 

'i ' 'i 

2. SORT- CORE- SIZE is the name of a binary data item whose PICTURE iji^ 
S9(8). It is used to specify the number of bytes of storage « i 
available to the sorting operation if it is different from the ,;c:qjr^ 
size that the Sort Feature would normally use. } jl 

3. SORT-MODE-SIZE is the name of a binary data item whose PICTURE as 
S9(5). It is used for variable-length records. If the length ,!of 
most records in the file is significantly different from the I ! 
average record length, performance is improved by specifying the ' 
most frequently occurring record length. If SORT-MODE-SIZE is 
omitted, the average length is assumed. For example, if records 
vary in length from 20 to 100 bytes, but most records are 30 byte}s 
long, the value 30 should be moved to SORT-MODE-SIZE. The maximiiiQi 
record length handled by the Sort Feature is 32,000 bytes. 

H. SORT- RETURN is the name of a binary data item whose PICTURE is ' 
S9(4). It contains a return code of or 16 at the completion of 
sorting operation to signify the success or failure, respectively, 
of the sort operation. 

An example of how variable information can be passed to the Sort 
Feature by use of a register is: 

ACCEPT FILE-SIZE FROM CONSOLE. 
MOVE FILE-SIZE TO SORT-FILE-SIZE. 
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SAMPLE PROGRAM USING THE SORT FEATURE 



This example (Figure 44) illustrates a sort based on a sales contest. 
The records to be sorted contain data on salesmen: name and address, 
employee number, department number, and pre-calculated net sales for the 
contest period. 

The salesman with the highest net sales in each department wins a 
prize, and smaller prizes are awarded for second highest sales, third 
highest, etc. The order of the SORT is (1) by department, the lowest 
numbered first (ASCENDING KEY DEPT) ; and (2) by net sales within each 
department, the highest net sales first (DESCENDING KEY NET- SALES ) . 

The records for the employees of departments 7 and 9 are eliminated 
in an input procedure (SCREEN-DEPT) before sorting begins. The 
remaining records are then sorted, and the output is placed on another 
file for use in a later job step. 



1000005 IDENTIFICATION DIVISION. 

I 000010 PROGRAM-ID. CONTEST. 

1000015 ENVIRONMENT DIVISION. 

1000016 CONFIGURATION SECTION. 

1000017 SOURCE-COMPUTER. IBM-360-F50. 

1000018 OBJECT-COMPUTER. IBM-360-F50. 

1000019 SPECIAL-NAMES. SYSLST IS PRINTER. 
I 000020 INPUT- OUTPUT SECTION. 

1000025 FILE- CONTROL. 

1000030 SELECT NET-FILE-IN ASSIGN TO SYS008-UT-2400-S. 

1000035 SELECT NET-FILE-OUT ASSIGN TO SYS007-UT-2400-S-SORTOUT. 

1000040 SELECT NET-FILE ASSIGN TO 3 SYS001-UT-2400-S. 

1000050 DATA DIVISION. 

I 000055 FILE SECTION. 

1000060 SD NET-FILE 

1000065 DATA RECORD IS SALES-RECORD. 

1000070 01 SALES-RECORD. 

I 000075 02 EMPL-NO 

1000080 02 DEPT 

I 000085 02 NET-SALES 

1000090 02 NAME-ADDR 

I 000095 FD NET-FILE-IN 

1000096 LABEL RECORDS ARE OMITTED 

I 000100 DATA RECORD IS NET-CARD-IN. 

I 000105 01 NET-CARD-IN. 

1000110 02 EMPL-NO-IN 

1000115 02 DEPT-IN 

1000120 02 NET-SALES-IN 

I 000125 02 NAME-ADDR-IN 

1000130 FD NET-FILE-OUT 

1000131 LABEL RECORDS ARE OMITTED 
1000135 DATA RECORD IS NET-CARD-OUT. 
1000140 01 NET-CARD-OUT. 
1000145 02 EMPL-NO-OUT 
I OOOrSO 02 DEPT-OUT 
1000155 02 NET-SALES-OUT 
1000160 02 NAME-ADDR-OUT 



PICTURE 9(6) . 
PICTURE 9(2). 
PICTURE 9(7)V99. 
PICTURE X(55) . 



PICTURE 9(6) . 
PICTURE 9(2). 
PICTURE 9(7)V99. 
PICTURE X(55). 



PICTURE 9(6) . 
PICTURE 9(2). 
PICTURE 9(7)V99. 
PICTURE X(55) . 



Figure 44. Sample Program Using the SORT Feature (Part 1 of 2) 
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r 

1000165 PROCEDURE DIVISION. 

I 000170 ELIM-DEPT-7-9-NO-PRINTOUT. 

1000175 SORT NET-FILE 

1000180 ASCENDING KEY DEPT, 

1000185 DESCENDING KEY NET-SALES 

1000190 INPUT PROCEDURE SCREEN-DEPT 

1000195 GIVING NET-FILE-OUT. 

1000200 CHECK-RESULTS SECTION. 

! 000205 C-R-1. 

i 000210 OPEN INPUT NET-FILE-OUT. 

1 000215 C-R-2. 

! 000220 READ NET-FILE-OUT AT END GO TO C-R-FINAL. 

i 000225 DISPLAY EMPL-NO-OUT DEPT-OUT NET-SALES-OUT 

1000230 NAME-ADDR-OUT UPON PRINTER. 

1 000235 C-R-3. 

1000240 GO TO C-R-2. 

1000245 C-R-FINAL. 

1000250 CLOSE NET-FILE-OUT. 

I 000255 STOP RUN. 

1000260 SCRESN-DEPT SECTION. 

1000265 S-D-1. 

1000270 OPEN INPUT NET-FILE-IN. 

1000275 S-D-2. 

1000280 READ NET-FILE-IN AT END GO TO S-D-FINAL. 

1000285 DISPLAY EMPL-NO-IN DEPT-IN NET-SALES- IN 

1000290 NA^^-ADDR-IN UPON PRINTER. 

I 000295 S-D-3. 

1000300 IF DEPT- IN = 7 OR 9 GO TO S-D-2 

1000305 ELSE 

1000310 MOVE NET-CARD-IN TO SALES-RECORD, 

1000315 RELEASE SALES-RECORD, 

1000320 GO TO S-D-2. 

1000325 S-D-FINAL. 

1000330 CLOSE NET-FILE-IN. 

1000335 S-D-END. 

1000340 EXIT. 

L 

Figure 44. Sample Program Using the SORT Feature (Part 2 of 2) 



am 
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Report Writer — Description 
REPORT WRITER FEATURE 



The Report Writer Feature permits the prograinnier to specify the 
forniat of a printed report in the Data Division, thereby iriniirizing the 
amount of Procedure Division coding he would have to write to create the 
report. 

A printed report consists of the information reported and the format 
in which it is printed. Several reports can be produced by one program. 

In the Data Division, the programmer gives the name(s) and describes 
the format (s) of the report (s) he wishes produced. In the Procedure 
Division, he writes the statements that produce the report(s). 

At program execution time, the report in the format defined is 
produced — data to be accumulated is summed, totals are produced, 
counters are stepped and reset, and each line and each page is printed. 
Thus, the programmer need not concern himself with the details of these 
operations- 



DATA DIVISION — OVERALL DESCRIPTION 

In the Data Division, the programmer must write an FD entry that 
names the output file upon which the report is to be written, and must 
also name the report itself. A report may be written on two files at 
the same time. 

At the end of the Data Division, he must add a Report Section to 
define the format of each report named. In the Report Section, there 
are two types of entries: 

1. The Report Description Entry (RD) which describes the physical 
aspects of the report format. 

2. The report group description entries which describe the data items 
within the report and their relation to the report format. 

In the report description entry, the programmer specifies the maximum 
number of lines per page, where report groups are to appear on the page, 
and which data items are to be considered as controls. 

Controls govern the basic format of the report. When a control 
changes value — that is, when a control break occurs — special actions 
will be taken before the next line of the report is printed. Controls 
are listed in a hierarchy, proceeding from the most inclusive down to 
the least inclusive. Thus, by specifying HEADING and FOOTING controls, 
the programmer is able to instruct the Report Writer to produce the 
report in whatever format he desires. 

For example, in the program at the end of this chapter, the hierarchy 
of controls proceeds from the highest (FINAL) to an intermediate control 
(MONTH) to the minor control (DAY-1) . DAY-1 is the minor control since, 
if MONTH changes, DAY-1 also must change. Whenever any control changes, 
special actions are performed by the Report Writer -- sum information is 
totaled, counters are reset, special information is printed, and so 
forth — before the next detail line is printed. 

The report group description entries describe the characteristics of 
all data items contained within the report group ; the format of each 
data item present, its placement in relation to the other data items 
within the report group, and any control factors associated with the 
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group. Information to be presented within a report group can be 
described in three ways: 

• as SOURCE information ^ which is information from outside the report 

• as SUM information , which is the result of addition operations upon 
any data present, whether SOURCE information or other SUM 
information 

• as VALUE information , which is constant information 

Through the RD and the report group description entries, the 
programmer has thus defined completely the content, the format, and the 
summing operations necessary to produce the desired report. 



PROCEDURE DIVISION — OVERALL DESCRIPTION 

In the Procedure Division, the programmer instructs the Report Writer 
to produce the report through the use of three Report Writer statements: 
INITIATE, GENERATE, and TERMINATE. 

The INITIATE statement performs functions in the Report Writer 
analogous to the OPEN statement for individual files. 

The GENERATE Statement automatically produces the body of the report. 
Necessary headings and footings are printed, counters are incremented 
and reset as desired, source information is obtained, and sura 
information is produced, data is moved to the data item(s) in the report 
group description entry, controls are tested, and when a control break 
occurs, the additional lines requested are printed, as well as the 
detail line that caused the control break. All of this is done 
automatically, thus relieving the programmer of the responsibility for 
writing detailed tests and looping procedures that would otherwise be 
necessary. 

The TERMINATE statement completes the processing of a report. It is 
analogous to the CLOSE statement for individual files. 

In the Declaratives portion of the Procedure Division, the programmer 
may also specify a USE BEFORE REPORTING procedure for report group. In 
this procedure, he is able to specify any additional processing he 
wishes done before a specific report group is printed. 

Two special registers are used by the Report Writer feature: 

LINE-COUNTER -- which is a numeric counter used by the Report Writer to 
determine when a PAGE HEADING and/or a PAGE FOOTING report group is 
to be presented. The maximum, value of LINE-COUNTER is based on the 
number of lines per page as specified in the PAGE LIMIT (S) clause. 
LINE-COUNTER may be referred to in any Procedure Division 
statement. 

PAGE-COUNTER — which is a numeric counter that may ne used as a SOURCE 
data item in order to present the page number on a report line. 
The maximum size of PAGE-COUNTER is based on the size specified in 
the PICTURE clause associated with an elementary item whose SOURCE 
IS PAGE-COUNTER. This counter may be referred to by any Procedure 
Division statement. 

Figure 46, at the end of this chapter, gives an example of a Report 
Writer program for a manufacturer's quarterly report. 
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FD Entry/REPORT Clause 



Figure 47, which follows the program, shows the report that would oe 
produced. 



DATA DIVISION CONSIDERATIONS FOR REPORT WRITER 



The names of all the reports to be produced must be named in the File 
Section of the Data Division. An entry is required in the FD entry to 
list the names of the reports to be produced on that file. A Report 
Section must be added at the end of the Data Division to define the 
format of each report. 



FILE DESCRIPTION 



The File Description furnishes information concerning the physical 
structure, identification, and record-names pertaining to a given file. 



General Format 



FD file-name 

[BLOCK CONTAINS Clause] 
[RECORD CONTAINS Clause] 
[KEXJoiRDBSIG i^$& jClausel 
LABEL RECORDS Clause 
[VALUE OF Clause] 

REPORT Clause. 



A discussion of all the above-mentioned clauses appears in "Data 
Division." A description of the REPORT clause, tile RECORDING: MODE 
j0ja|.«^,t.dtJte>, iDMGA RECOSDSS tolausa^ and the RECORD CONTAINS clause for a 
file on which a report is produced follows. 



REPORT Clause 



Each unique report-name must appear in the REPORT clause of the FD 
entry (or entries) for the file(s) on which the report (s) is to be 
produced. The REPORT clause cross references the description of Report 
Description entries with their associated File Description entry. 



I Format 

I- 



(REPORT IS 



(REPORTS ARE 



report-name-1 [report-name- 2] 



L . J 
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■RECORDING MODE/DATA RECORDS/RECORD CONTAINS Clauses 

Each File Description entry for standard sequential OUTPUT files 
within the File Section may include a REPORT clause containing the names 
of one or more reports. These reports may be of different sizes, 
formats, etc., and the order in which their names appear in the clause 
is not significant. 



Each unique report-name listed in an FD entry must be the subject of 
an RD entry in the Report Section. A given report- name may appear in a 
maximum of two REPORT clauses. 



RECORDING MODE Clause 



The RECORDING MODE clause is used to specify the format of the 
logical records within the file. If this clause is omitted, the 
recording mode is determined as described in "Data Division." 



DATA RECORDS Clause 



If the DATA RECORDS clause is specified, and the file is used for 
output, the AFTER ADVANCING option must be used when writing records 
named in this clause. 



RECORD CONTAINS Clause 

The RECORD CONTAINS clause enables the user to specify the maximum. 
size of his report record. 



r 1 

I Format | 

I. ^ 

I I 

1 RECORD CONTAINS [ integer- 1 TO] integer- 2 CHARACTERS | 

I I 

L J 



The specified size of each report record must include the carriage 
control/line spacing character, and the CODE character, if the CODE 
option is used. If the RECORD CONTAINS clause is omitted, the compiler 
assumes a default size of 133 characters. 

For variable-length records, the size of each print line will be 
integer- 2 characters, and the size of each blank line required for 
spacing will be 17 characters. For fixed-length records, the size of 
each print line and each blank line required for spacing will be 
integer- 2 characters. 

For further information on the RECORD CONTAINS clause, see "Data 
Division. " 
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RD (Report Description) Entry 
REPORT SECTION 

The Report Section consists of two types of entries for each report; 
one describes the physical aspects of the report format, the other type 
describes conceptual characteristics of the items that make up the 
report and their relationship to the report format. These are: 

1. Report Description entry (RD) 

2. Report group description entries 

The Report Section must begin with the header REPORT SECTION. 



Repo r t Description Entry 

The Report Description entry contains information pertaining to the 
overall format of a report named in the File Section and is uniquely 
identified by the level indicator RD. The clauses that follow the name 
of the report are optional, and their^ order of appearance is not 
significant. 

The entries in this section stipulate: 

1. The maximum number of lines that can appear on a page. 

2. Where report groups are to appear on a page. 

3. Data items that act as control factors during presentation of the 
reporjb. 



r 1 

I General format j 

j. ^ 

REPORT SECTION . 

RD report-name 
[CODE Clause] 
[CONTROL Clause] 
[PAGE LIMIT Clause] . 



RD is the level indicator. 

Report-name is the name of the report and must be unique. The 
report-name must be specified in a REPORT clause in the File Description 
entry for the file on which the report is to be written. 



CODE Clause 

The CODE clause is used to specify an identifying character added at 
the beginning of each line produced. The identification is meaningful 
when more than one report is written on a file. 
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CODE/CONTROL Clauses 




Mnemon ic-name must be associated with a single character literal used 
as function-name-1 in the SPECIAL- NAi^-IES paragraph in the Environment 
Division. The identifying character is appended to the beginning of the 
line, preceding the carriage control/line spacing character- This 
clause should not be specified if the report is to be printed on-line. 



CONTROL Clause 



The CONTROL clause indicates the identifiers that specify the control 
hierarchy for this report, that is, the control breaks. 



Format 



(CONTROL IS ) 
(CONTROLS AReS 



{ FINAL I 

< identif ier-1 [identif ier-2] ... [ 
(FINAL identif ier-1 [identif ier-2] .- .5 



L J 



A control is a data item that is tested each time a detail report 
group is generated. If the test indicates that the value of the data 
item (i.e., CONTROL) has changed, a control break is said to occur, and 
special action (described below) is taken before printing the detail 
line. 

FINAL is the highest level control. (It is the one exception to the 
statement that controls are data items.) The identifiers specify the 
control hierarchy of the other controls. Identif ier-1 is the major 
control, identif ier-2 is the intermediate control, etc. The last 
identifier specified is the minor control. The levels of the controls 
are indicated by the order in which they are written. FINAL need not be 
Sps|c^*ff!iea in the com^ROL cla,use, even if a COtfTROL HEADIi;«5 FIRAL or 
t»MfcL' It50T!rWG' "FINAL iiS' speclf-ied. 

The control identifiers must each specify different data items; that 
is, their descriptions must not be such that they occupy (partially or 
completely) the same area of storage, or overlap in any way. 

When controls are tested, the highest level control specified is 
tested first, then the second highest level, etc. When a control break 
is found for a particular level, a control break is implied for each 
lower level as well. A control break for FINAL occurs only at the 
beginning and ending of a report (i.e., before the first detail line is 
printed and after the last detail is printed) . 

The action to be taken as a result of a control break depends on what 
the programmer defines. He may define a CONTROL HEADING report group 
and/or a CONTROL FOOTING group or neither for each control. 
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PAGE LIMIT Clause 



The control footings and headings that are defined are printed prior 
to printing the originally referenced detail. They are printed in the 
following order: lowest level control footing^ next higher level 
control footing, etc., up to and including the control footing for the 
level at which the control break occurred; then the control heading for 
that level, then the next lower level control heading, etc., down to and 
including the minor control heading; then the detail is printed. If, in 
the course of printing control headings and footings, a page condition 
is detected, the current page is ejected and a new page begun. If the 
associated report groups are given, a page footing and/or a page heading 
are also printed. 

The CONTROL clause is required when CONTROL HEADING or CONTROL 
FOOTING report groups s||t^|^i|^^ililiil|iiEki are specified. 

The identifiers specified in the CONTROL clause are the only 
identifiers referred to by the RESET and TYPE clauses in a report group 
description entry for this report. The identifiers must be defined in 
the File or Working-storage Section of the Data Division. 



PAGE LIM IT Clause 

The PAGE LIMIT clause indicates the specific line control to be 
maintained within the logical presentation of a page, i.e., it describes 
the physical format of a page of the report. 



Format 



PAGE 



LIMIT IS 
LIMITS ARE. 



integer-1 



( LINE 
I LINES 



[HEADING integer-2] 
[FIRST DETAIL integer-3] 
[LAST DETAIL integer-4] 
[ FOOTING integer-5] 



If this clause is not specified, PAGE-COUNTER and LINE-COUNTER 
special registers are not generated. 

The PAGE LIMIT clause is required when page format must be controlled 
by the Report Writer. 

inteqer-1 : The PAGE LIMIT integer-1 LINES clause is required to 

specify the depth of tne report page; the depth of the 
report page may or may not be equal to the physical 
perforated continuous form often associated in a report 
with the page length. The size of the fixed data-name, 
LINE-COUNTER, is the maximum numeric size based on 
integer-1 lines required for the counter to prevent 
overflow. 

integer- 2 : The first line number of the first heading print group is 
specified by integer-2. No print group will start 
preceding integer-2, i.e., integer-2 is the first line on 
which anything may be printed. 
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PAGE LIMIT Clause 

integer- 3 : The first line number of the first normal print group 
(body group) is specified by integer-3. No DETAIL, 
CONTROL HEADING, Or CONTROL FOOTING print group will start 
before integer-3. 

integer-4 ; The last line number of the last nonfooting body group is 
specified by integer- 4- No DETAIL or CONTROL HEADING 
print group will extend beyond integer- 4. 

integer- 5 ; The last line number of the last CONTROL FOOTING print 

group is specified by integer-5. No CONTROL FOOTING print 
group will extend beyond integer-5. PAGE FOOTING print 
groups will follow integer-5. 



Using the parameters of the PAGE LIMIT clause, the Report Writer 
establishes the areas of the page where each type of report group is 
allowed to be printed. The following are the page areas for each type 
of report group: 



1. A REPORT HEADING report group can extend from line integer- 2 to 
line integer-1, inclusive. If the REPORT HEADING report group is 
not on a page by itself, the FIRST DETAIL integer-3 clause must be 
present in the PAGE LIMIT clause of the report. 



2. A PAGE HEADING report group may extend from line integer- 2 to line 
integer-3 minus 1, inclusive. If a PAGE HEADING report group is 
specified in the report description, the FIRST DETAIL integer-3 
clause must be present in the PAGE LIMIT clause of the report. A 
PAGE HEADING report group that follows a REPORT HEADING report 
group on the same page must be able to be printed in the area of 
the page defined in this rule. 

3. CONTROL HEADING report groups and DETAIL report groups must be 
printed in the area of the page that extends from line integer-3 to 
line integer-U, inclusive. 

4. CONTROL FOOTING report groups must be printed in the area of the 
page extending from line integer-3 to line integer-5, inclusive. 

5. A PAGE FOOTING report group may extend from line integer-5 plus 1 
to line integer-1, inclusive. If PAGE FOOTING is specified in the 
report description, either the FOOTING integer-5 or LAST DETAIL 
integer-U clause must be present in the PAGE LIMIT clause of the 
report. 

6. A REPORT FOOTING report group can extend from line integer- 2 to 
line integer-1, inclusive. If the REPORT FOOTING report group is 
not on a page by itself, either the FOOTING integer-5 or LAST 
DETAIL integer- 4 clause must be present in the PAGE LIMIT clause of 
the report. 



Figure 45 pictorially represents page format report group control 
when the PAGE LIMIT clause is specified. 

Report Writer Feature 259 



PAGE LIMIT Clause 



integer-2 

integer-3 
integer-4 
integer-5 
integer-l 



REPORT 

HEADING/ PAGE 

FOOTING HEADING 



DETAIL & 






CONTROL 


CONTROL 


PAGE 


HEADING 


FOOTING 


FOOTING 



1' 
y 



Figure 45. Page Format When the PAGE LIMIT Clause is Specified 



The PAGE LIMIT clause may be omitted when no association is desired 
between report groups and the physical format of an output page. In 
this case, relative line spacing must be indicated for all report groups 
of the report. 

If absolute line spacing is indicated for all the report groups, none 
of the integer-2 through integer-5 controls need be specified. If any 
of these limits are specified for a report that has only absolute line 
spacing, the limits are ignored. 

If relative line spacing is indicated for any report group, all LINE 
NUMBER and NEXT GROUP spacing must be consistent with the controls 
specified or implied in the PAGE LIMIT clause. 

If PAGE LIMITS integer-l is specified and some or all of the HEADING 
integer-2, FIRST DETAIL integer-3, LAST DETAIL integer-4, FOOTING 
integer-5 clauses are omitted, the following implicit control is assumed 
for all omitted specifications: 

1. If HEADING integer-2 is omitted, integer-2 is considered to be 
equivalent to the value 1, that is, LINE NUMBER one. 

2. If FIRST DETAIL integer-3 is omitted, integer-3 is considered to be 
equivalent to the value of integer-2. 

3. If LAST DETAIL integer-4 is omitted, integer-4 is considered to be 
equivalent to the value of integer-5. 

4. If FOOTING integer-5 is omitted, integer-5 is considered to be 
equivalent to the value of integer-4. If both LAST DETAIL 
integer-4 and FOOTING integer-5 are omitted, integer-4 and 
integer-5 are both considered to be equivalent to the value of 
integer-l - 

Only one PAGE LIMIT clause may be specified for a Report Description 
entry. 

• Integer-l through integer-5 must be positive integers. 

• Integer-2 through integer-5 must be in ascending order. Integer-5 
must not exceed integer-l. 
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Report Group Description Entry 

A report comprises one or more report groups. Each report group is 
described by a hierarchy of entries similar to the description of a data 
record. There are three categories of report groups: heading groups, 
detail groups, and footing groups. A CONTROL HEADING, DETAIL, or 
CONTROL FOOTING report group may also be referred to as a body group. 

The report group description entry defines the format and 
characteristics for a report group. The relative placement of a 
particular report group within the hierarchy of report groups, the 
format of all items, and any control factors associated with the group 
are defined in this entry. 

Schematically, a report group is a line, a series of lines, or a null 
(i.e., nonprintable) group. A report group is considered to be one unit 
of the report. Therefore, the lines of a report group are printed as a 
unit. 

A null group is a report group for which no LINE or COLUMN clauses 
have been specified (that is, a nonprintable report group). 

The report group description entry defines the format and 
characteristics applicable to the type of report group. 

1. For all report groups that are not null groups, the description 
entry indicates where and when the report group is to be presented. 

2. For all report groups, the description entry indicates when the 
nonprinting functions of the report group, such as summation, are 
to be performed. 

3. For all report groups except DETAIL, the description entry allows 
for the execution of a user-specified procedure prior to printing a 
report group. If a report group is a null group, the execution of 
the user procedure occurs in the same manner as though the report 
group were printed. 

H. For CONTROL FOOTING report groups, the description entry indicates 
the user's summation algorithm. 

Report group names are required when reference is m.ade in the Procedure 
Division: 

• to a DETAIL report group by a GENERATE statement. 

• to a HEADING or FOOTING report group by a USE sentence. 

Report group names are required when reference is made in the Report 
Section to a DETAIL report group by a SUM UPON clause. 

Except for the data-name clause which, when present, must immediately 
follow the level number, the clauses may be written in any order. 

Report- name is the only qualifier available for report groups and SUM 
counters. 

Note : A report group description entry is not a true hierarchical 
structure like a record in the File or Working- Storage Sections. In the 
Report Section, an 01-level item does not define a continuous area of 
storage occupied by subordinate items. For this reason, the 01 
data- name may not be used as a qualifier for what outwardly appear to be 
subordinate items. Since a CONTROL FOOTING in a given report may only 
roll forward SUM counters defined within the same RD, qualification of 
the SUM counter is implicit and never necessary. In the Procedure 
Division, a SUM counter data-name may be qualified by the appropriate RD 
report-name. 
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General Format 1 



01 [data-name-1] ] 

[LINE Clause] | 

[rJEXT GROUP Clause] i 

TYPE Clause ! 

[USAGE Clause] . | 

I 

L J 

r 1 

I General Format 2 | 

|. ^ 

! 

level number [data-name-1] | 

[LINE clause] I 

[USAGE clause], | 

I 

L J 

r 1 

I General Format 3 | 

j. ^ 

level number [data-name-1] 

[BLANK WHEN ZERO Clause] 
[COLUMN Clause] 
[GROUP Clause] 
[JUSTIFIED Clause] 
[LINE Clause] 
[PICTURE Clause] 
[RESET Clause] 

(SOURCE ) 
[ <Jsu^3 > Clause ] 

(value j 

[USAGE Clause] . 

\ 

L J 

r T 

I General Format 4 | 

|. ^ 

01 [data-name-1] 

[BLANK WHEN ZERO Clause] 
[COLUMN Clause] 
[GROUP Clause] 
[JUSTIFIED Clause] 
[LINE Clause] 
[NEXT GROUP Clause] 
PICTURE Clause 
[RESET Clause] 

(SOURCE) 

<SUM > Clause 

(value ) 

TYPE Clause 
[USAGE Clause], 
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Report Group Description Entry 

Format 1 is used to indicate a report group. A report group 
description must contain a report group entry (level- 01) and it must be 
the first entry. A report group extends from this entry either to the 
next report group level- 01 entry or to the end of the next report 
description. A null report group may contain only a Format 1 report 
group entry. 

Format 2 is used to indicate a group item. A group item entry may 
contain a level number from 02 through 48; this entry has the follov?ing 
functions: 
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LINE Clause 

• If a report group has more than one line and one of the lines 
contains more than one elementary item, a group item entry may oe 
used to indicate the LINE number of the subordinate elementary 
items. 

• If a group item entry contains no LINE clause and there are no SUM 
counters subordinate to it, its only function is dociomentation. 

Format 3 is used to indicate an elementary item. An elementary item 
entry may contain a level number from 02 through 49; this entry has the 
following functions: 

• An elementary item entry may be used to describe an item that is to 
be presented on a printed line. In this case, a COLUMN clause, a 
PICTURE clause, and either a SOURCE, SUM, or VALUE clause must oe 
present. 

• An elementary item entry in a DETAIL report group may be used to 
indicate to the Report Writer what operands are to be summed upon 
presentation of the DETAIL report group. 

• An elementary item entry in a CONTROL FOOTING report group may be 
used to define a SUM counter. (See SUM Clause.) 

Format U is used to indicate a report group that consists of only one 
elementary item. If Format U is used to define the report group instead 
of Format 1, it must be the only entry in the group. 

LINE Clause 

The LINE clause indicates the absolute or relative line number of 
this entry in reference to the page or previous entry. 



r 1 

I Format j 

J. ^ 

integer-1 
LINE NUMBER IS ^ PLUS integer- 2 
NEXT PAGE 

L J 



Each line of a report must have a LINE clause associated with it. 
For the first line of a report group, the LINE clause must be given 
either at the report group level or prior to or for the first elementary 
item in tne line. For report lines other than the first in a report 
group, the LINE clause must be given prior to or for the first 
elementary item in the line. When a LINE clause is encountered, 
subsequent entries following the entry with the LINE clause are 
implicitly presented on the same line until either another LINE clause 
or the end of the report group is encountered. 

Integer-1 and integer- 2 must be positive integers . 

LINE NUMBER IS inteqer-1 is an absolute LINE clause. It indicates 
the fixed line of the page on which this line is to be printed. 
LINE-COUNTER is set to the value of integer-1 and is used for printing 
the items in this and the following entries within the report group 
until a different value for the LINE-COUNTER is specified. 
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LINE Clause 

LINE NUMBER IS PLUS int eger-2 is a relative LINE clause. The line is 
printed relative to the previous line either printed or skipped. 
LINE-COUNTER is incremented by the value of integer-2 and is used for 
printing the items in this and the following entries within the report 
group until a different value for the LINE-COUNTER is specified. 
Exceptions to this rule are discussed later. 

LINE NUMBER IS NEXT PAGE indicates that this report group is to be 
printed on the next page, not on the current page. This LINE clause may 
appear only in a report group entry or may be the LINE clause of the 
first line of the report group. 



Within any report group, absolute LINE NUMBER entries must be 
indicated in ascending order, and an absolute LIME NUMBER cannot be 
preceded by a relative LINE NUMBER. If the first line of the first body 
group that is to be printed on a page contains either a relative LINE 
clause or a LINE NUMBER IS NEXT PAGE clause, the line is printed on line 
FIRST DETAIL integer- 3. However, if the LINE-COUNTER contains a value 
that is greater than or equal to FIRST DETAIL integer-3, the line is 
printed on line LINE-COUNTER plus 1, This value of LINE-COUNTER was set 
by an absolute NEXT GROUP clause in the previously printed body group 
(see rules for NEXT GROUP). 

If the report group entry of a body group contains a LINE NUMBER IS 
NEXT PAGE clause and the first line contains a relative LINE clause, the 
first line is printed relative to either FIRST DETAIL integer-3 or 
LINE-COUNTER, whichever is greater. This value of LINE-COUNTER was set 
by an absolute NEXT GROUP clause in the previously printed body group. 

The following are the rules for the LINE clause by report group type: 

1. REPORT HEADING 

• LINE NUMBER IS NEXT PAGE cannot be specified in the report group. 

• The first line of the report group may contain an absolute or 
relative LINE clause. 

• If the first line contains a relative line clause, it is relative 
to HEADING integer-2. 

2. PAGE HEADING 

• LINE NUMBER IS NEXT PAGE cannot be specified in the report group. 

• The first line may contain either an absolute or relative LINE 
clause. 

• If the first line contains a relative LINE clause, it is relative 
to either HEADING integer-2 or the value of LINE-COUNTER, 
whichever is greater. The value in LINE-COUNTER that is greater 
than HEADING integer-2 can only result from a REPORT HEADING 
report group being printed on the same page as the PAGE HEADING 
report group. 

3. CONTROL HEADING, DETAIL, and CONTROL FOOTING 

• LINE NUMBER IS NEXT PAGE may be specified in the report group. 

• The first line of the report group may contain either an absolute 
or relative LINE clause. 
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NEXT GROUP Clause 

PAGE FOOTING 

• LINE NUMBER IS NEXT PAGE cannot be specified in the report group. 

• The first line of the report group may contain an absolute or 
relative LINE clause. 

• If the first line contains a relative LINE clause, it is relative 
to FOOTING integer-5. 

REPORT FOOTING 



If the report group is to be printed on a page by itself, LINE 
NUMBER IS NEXT PAGE must be specified. 



If LINE NUMBER IS NEXT PAGE is the only LINE clause in the report 
group description, the line will be printed on line HEADING 
integer-2. 

If the report group description does not contain a LINE NUMBER IS 
NEXT PAGE clause, the first line m.ust contain an absolute or 
relative LINE clause. If it contains a relative LINE clause, the 
line is relative to either FOOTING integer-5 or the value of 
LINE-COUNTER, whichever is greater. The value in LINE-COUNTER 
that is greater than FOOTING integer-5 can only result from the 
printing of the PAGE FOOTING report group. 



NEXT GROUP Clause 



The NEXT GROUP clause indicates the spacing condition following the 
last line of the report group. 



NEXT GROUP IS 



Format 



integer-1 
PLUS integer-2 
NEXT PAGE 



L J 



The NEXT GROUP clause can appear only in a report group entry. 
Integer-1 and integer-2 must be positive integers. 
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NEXT GROUP Clause 



The following are tne rules for the NEXT GROUP clause by report group 
type: 

1. REPORT HEADING 

• If the report group is to be printed on a page oy itself, NEXT 
GROUP IS NEXT PAGE must be specified in the report group 
description. 

• Integer-1 indicates an absolute line number which sets the 
LINE-COUNTER to this value after printing the last line of the 
report group. 

• Integer- 2 indicates a relative line number which increments the 
LINE-COUNTER by the integer-2 value after printing the last line 
of the report group. 

• An absolute or relative NEXT GROUP clause must not cause the 
LINE-COUNTER to be set to a value greater than FIRST DETAIL 
integer-3 minus 1. 

2. PAGE HEADING, PAGE FOOTING, and REPORT FOOTING 

• A NEXT GROUP clause cannot be specified in the report group. 

3. CONTROL HEADING, DETAIL, and CONTROL FOOTING 

• If a NEXT GROUP clause implies a page change/ the change occurs 
only when the next body group is to be printed. 

• The NEXT GROUP IS NEXT PAGE clause indicates that no more body 
groups are to be printed on this page. 

• An absolute or relative NEXT GROUP clause may cause the 
LINE-COUNTER to be set to a value greater than or equal to FIRST 
DETAIL integer-3 and less than or equal to FOOTING integer-5. 
This is an exception to the rule which defines the page area of 
CONTROL HEADING and DETAIL report groups. 

• If a NEXT GROUP IS integer-1 clause causes a page change, the 
value of LINE-COUNTER is set to the value of integer-1 before the 
formatting of the first line of the next body group to be 
printed. This implies that if the first line of the next body 
group to be printed contains a relative LINE NUMBER clause, the 
line will be printed on line LINE-COUNTER plus 1; if the first 
line contains an absolute LINE NUMBER clause that is less than or 
equal to integer-1, a page will be printed which contains only 
PAGE HEADING and FOOTING report groups, and the following page 
will contain the body group. 

• When the NEXT GROUP clause is specified for a CONTROL FOOTING 
report group, the NEXT GROUP clause functions are performed only 
when a control break occurs for the control that is associated 
with this report group. 



If the USE procedure for a report group contains a MOVE 1 PRINT-SWITCia 
statement, the NEXT GROUP; clauise functions are not performed foi: t;b4^! 
.report; group. ' ■■:,:; : * """ 
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TYPE Clause 



The TYPE clause specifies the particular type of report group that is 
described by this entry and indicates the time at which the report group 
is to be generated. 



Format 



TYPE IS 



C REPORT HEADING ^ 
RH / 

PAGE HEADING ) 
PH j 

f CONTROL HEADING 




:ng1 



DE 

CONTROL FOOTING-^ 
ICF r 

I PAGE FOOTING ^ 
iPF j 

( report FOOTING) 



Tidentifier-n) 
( FINAL ] 



/identifier-n| 
(FINAL ( 



The TYPE clause in a particular report group entry indicates the 
point in time at which this report group will be generated as output. 

If the report group is described as TYPE DETAIL or DE, then a 
GENERATE Statement in the Procedure Division directs the Report Writer 
to produce this report group. Each DETAIL report group must have a 
unique data-name at level-01 in a report. 

If the report group is described as other than TYPE DETAIL or DE, the 
generation of this report group is an automatic feature of the Report 
Writer, as detailed in the following paragraphs. 

The REPORT HEADING or RH entry indicates a report group that is 
produced only once at the beginning of a report during the execution of 
the first GENERATE statement. There can be only one report group of 
this type in a report. SOURCE clauses used in REPORT HEADING report 
groups refer to the values of data items at the time the first GENERATE 
statement is executed. 

The PAGE HEADING or PH entry indicates a report group that is pro- 
duced at the beginning of each page according to PAGE condition rules as 
specified below. There can be only one report group of this type in a 
report . 

The CONTROL HEADING or CH entry indicates a report group that is pro- 
duced at the beginning of a control group for a designated identifier, 
or, in the case of FINAL, is produced once before the first control 
group during the execution of the first GENERATE statement. There can 
be only one report group of this type for each identifier and for the 
E,INAL entry specified in a report. In order to produce any CONTROL 
HEADING report groups, a control break must occur. SOURCE clauses used 
in CONTROL HEADING FINAL report groups refer to the values of the items 
at the time the first GENERATE statement is executed. 

The CONTROL FOOTING or CF entry indicates a report group that is 
produced at the end of a control group for a designated identifier or is 
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produced once at the termination of a report ending a FINAL control 
group. There can be only one report group of this type for each identi- 
fier and for the FINAL entry specified in a report. In order to produce 
any CONTROL FOOTING report groups, a control break must occur. SOURCE 
clauses used in CONTROL FOOTING FINAL report groups refer to the values 
of the items at the time the TERMINATE statement is executed. 

The PAGE FOOTING or PF entry indicates a report group that is 
produced at the bottom of each page according to PAGE condition rules as 
specified below. There can be only one report group of this type in a 
report. 

The REPORT FOOTING or RF entry indicates a report group that is 
produced only at the termination of a report. There can be only one 
report group of this type in a report. SOURCE clauses used in TYPE 
REPORT FOOTING report groups refer to the value of items at the time the 
TERMINATE statement is executed, 

Identif ier-n , as well as FINAL, must be one of the identifiers 
described in the CONTROL clause in the Report Description entry. 

A FINAL type control break may be designated only once for CONTROL 
HEADING or CONTROL FOOTING entries within a particular report 
description. 

Nothing precedes a REPORT HEADING entry and nothing follows a REPORT 
FOOTING entry within a report. 

The HEADING or FOOTING report groups occur in the following Report 
Writer sequence if all exist for a given report: 

REPORT HEADING (one occurrence only) 
PAGE HEADING 



CONTROL HEADING 

DETAIL 

CONTROL FOOTING 



PAGE FOOTING 

REPORT FOOTING (one occurrence only) 



CONTROL HEADING report groups are presented in the following 
hierarchical arrangement: 

Final control Heading (one occurrence only) 
Major Control Heading 



Minor Control Heading 



CONTROL FOOTING report groups are presented in the following 
hierarchical arrangement: 

Minor Control Footing 



Major Control Footing 

Final Control Footing (one occurrence only) 
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COLUMN Clause 

CONTROL HEADING report groups appear with the current values of any 
indicated SOURCE data items before the DETAIL report groups of the 
CONTROL group are produced. CONTROL FOOTING report groups appear with 
the previous values of any indicated SOURCE data items specified in the 
CONTROL clause, just after the DETAIL report groups of that CONTROL 
group have been produced. 

The USE procedures specified for a CONTROL FOOTING report group that 
refer to: 

• source data items that are specified in the CONTROL clause affect 
the previous value of the items 

• source data items that are not specified in the CONTROLS clause 
affect the current value of the items 

These report groups appear whenever a control break occurs. LINE KUhBER 
determines the absolute or relative position of the CONTROL report 
groups exclusive of the other HEADING and FOOTING report groups. 



USAGE clause 



DISPLAY is the only option that may be, specif led for group and 
elementary items in a Report Group Description entry (see "USAGE 
Clause") . 



COLUMN Clause 

The COLUMN clause indicates the absolute column number on the printed 
page of the high-order (leftmost) character of an elementary item. 



r 1 

1 Format | 

j. ^ 

I 1 

I COLUMN NUMBER IS integer I 

I I 

L J 



The COLUMN clause indicates that the leftmost character of the 
elementary item is placed in the position specified by integer. If the 
COLUMN clause is not specified, the elementary item, though included in 
the description of the report group, is suppressed when the report group 
is produced at object time. 

Integer must be a positive integer. 

The COLUMN number clause is given at the elementary level within a 
report group even if the elementary level is a single level-Gl entry, 
which alone constitutes the report group. 

Mjjithdi^ a report groiup aoA a particular LINE NOKBER specification, 
OCaifeJK^ nt^naber entries need; not be indicated from left to right. 
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GROUP INDICATE Clause 



The GROUP INDICATE clause specifies that this elementary item is to 
be produced only on the first occurrence of the item after any control 
or page break. 




The GROUP INDICATE clause must be specified only at the elementary 
item level within a DETAIL report group. 

An elementary item is not only group indicated in the first DETAIL 
report group containing the item after a control break, but is also 
group indicated in the first DETAIL report group containing the item on 
a new page, even though a control break did not occur. 



JUSTIFIED Clause 



The JUSTIFIED clause is applicable in report group description 
entries as described in "Data Division." 



PICTURE Clau se 

The PICTURE clause is applicable in Report Group Description entries 
as described in "Data Division. " 



RESET Clause 

The RESET clause indicates the CONTROL identifier that causes the SUM 
counter in the elementary item entry to be reset to zero on a CONTROL 
break. 



r 1 

I Format | 

^ ^ 

! identifier 
FINAL 

L J 



After presentation of the CONTROL FOOTING report group, the counters 
associated with the report group are reset automatically to zero, unless 

270 Part V — Special Features 



SOURCE/SUM/VALUE Clause 



an explicit RESET clause is given specifying reset based on a higher 
level control than the associated control for the report group. 

The RESET clause may be used for progressive totaling of identifier s 
where subtotals of identifiers may be desired without automatic 
resetting upon producing the report group - 

Identifier must be one of the identifiers described in the CONTROL 
clause in the Report Description entry (RD) . Identifier must be a 
higher level CONTROL identifier than the CONTROL identifier associated 
with the CONTROL FOOTING report group in which the SUM and RESET clauses 
appear. 

The RESET clause may oe use3 only in conjunction with a SUM clause. 



BLANK WHEN ZERO. Clause 



The BLANK WHEN ZERO clause is applicable here as discussed in "Data 
Division. " 



SOURCE. SUM, or VALUE Clause 



The SOURCE, SUM, or VALUE clause defines the purpose of this 
elementary item within the report group. 



Format 



SOURCE IS 



tMm 



identifier-l) 



j. ^ 



T-AIiLY 



SUM 



(identif ier-2 



"mJiLY 



identif ier-3 



. . [UPON data-name] 



^ ^ 

VALUE IS literal-1 

L J 



SOURCE : The SOURCE clause indicates a data item that is to be used as 
the source for this report item. The item is presented according to the 
PICTURE clause and the COLUMN clause in this elementary item entry. 

The SOURCE clause has two functions: 

1. To specify a data item that is to be printed 

2. To specify a data item that is to be summed in a CONTROL FOOTING 
report group (see SUM clause) 
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SUM ; The SUM clause is used to cause automatic suirrtiation of data and 
may appear only in an elementary item entry of a CONTROL FOOTING report 
group. The presence of a SUM clause defines a SUt^ counter. If a SUK 
counter is to be referred to by a Procedure Division statement or Report 
Section entry, a data-name clause must be specified with the SUM clause 
entry. The data-name then represents the summation counter generated by 
the Report Writer to total the operands specified immediately following 
SUM. If reference is never made to a summation counter, the counter 
need not be named explicitly by a data-name entry. 

Whether the elementary item entry that contains a SUM clause names 
the summation counter or not, the PICTURE clause must be specified for 
each SUM counter. Editing characters or editing clauses may be included 
in the description of a SUM counter. Editing of a SUM counter occurs 
only upon presentation of that SUM counter. At all other times, the SUM 
counter is treated as a numeric data item. The SUM counter must be 
large enough to accommodate the summed quantity without truncation of 
integral digits. 

An operand of a SUM clause must be an elementary numeric data item 
that appears in the File, Working-Storage, or Linkage Section, or is the 
name of a SUM counter. Except when they are names of SUM counters, SUM 
operands may be qualified, subscripted or indexed. A SUM counter that 
is an operand of SUM clause must be defined in the same CONTROL FOOTING 
report group that contains this SUM clause or in a CONTROL FOOTING 
report group that is at a lower level in the control hierarchy of this 
report- 

A SUM counter is incremented by its operands in the following manner: 

• An operand that is an elementary niomeric data item appearing in the 
File, Working-Storage, or Linkage Section is added to the SUM 
counter upon the generation of a DETAIL report group that contains 
this operand as a SOURCE data item; even if the operand appears in 
more than one SOURCE clause of the DETAIL report group, it is added 
only once to the SUM counter. The operands must appear exactly as 
they are in the SOURCE clauses with regard to qualification, 
subscripting, and indexing. If the SUM clause contains the UPON 
option, the operiand does^ not, have to appear in s SOOBCE clattse of 
the DETAIL report group. 

• An operand that is a SUM counter and is defined in a CONTROL FOOTING 
that is at any lower level in the control hierarchy of this report 
is summed before presentation of the CONTROL FOOTING in which it is 
defined. This counter updating is commonly called rolling counters 
forward, 

• An operand that is a SUM counter and is defined in the same CONTROL 
FOOTING as this SUM clause, is summed before presentation of this 
CONTROL FOOTING. This counter updating is commonly called 
cross-footing. SUM counter operands are added to their respective 
SUM counters in the order in which they physically appear in the 
CONTROL FOOTING report group description, i-e*, left to right within 
an elementary item entry and down the elementary item entries. 

The UPON data-name option is required to obtain selective summation for 
a particular data item that is named as a SOURCE item in two or more 
DETAIL report groups. Identifier- 2 and identifier- 3 must be SOURCE data 
items in data- name. However, this compiler does not require that 
id'^ntifi^r~2, identifier-3jj etc., be- SOTJRCE data items in data-name. 
Data-name must be the name of a DETAIL report group. 

The following is the chronology of summing events. 

1. Cross-footing and counter rolling, 

2. Execution of the USE BEFORE REPORTING procedure, 

3. Presentation of the control footing if it is not a null group, 
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GENERATE Statement 

4. SUM counter resetting unless an explicit RESET clause appears in 
the entry that defines the SUM counter. 

Note : Undefined operands in the SUM clause are not diagnosed by the 
compiler, and no warning message is issued. Thus, when using the report 
writer, ensure that no operand is misspelled or that each operand is 
defined previously in the working storage, file, or linkage section or 
is the name of some other sum-counter. 

VALUE: The VALUE clause causes the report data item to assume the 
specified value each time its report group is presented only if the 
elementary item entry does not cpntain a GROUP INDICATE clause. If the 
GROUP INDICATE clause is present and a given object time condition 
exists, the item will not assume the specified value (see GROUP INDICATE 
rules) . 



PROCEDURE DIVISION CONSIDERATIONS 

To produce a report, the INITIATE, GENERATE, and TERMINATE statements 
must be soecified in the Procedure Division. In addition, a USE BEFORE 
REPORTING declarative may be written in a Declarative Section of the 
Procedure Division. This option allows the program.mer to manipulate or 
alter data immediately before it is printed. 



GENERATE Statement 



The GENERATE Statement is used to produce a report. 



r 

I Form.at 



I 

I GENERATE identifier 



Identifier is the name of either a DETAIL report group or an RD 
entry. If identifier is the name of a DETAIL report group, it can be 
made unique through qualification, using the associated report-name. 



Detail Reporting 

^^ ide ntifier is the name of a DETAIL report group, the GENERATE 
statement does all the automatic operations within a Report Writer 
program and produces an actual output detail report group on the output 
medium. At least one DETAIL report group must be specified. 

Summary Rep ortin g 

If iden t ifier is the name of an RD entry, the GENERATE statement does 
all of the automatic operations of tne Report Writer except producing 
any detail report group associated with the report. For summary 
reporting, a DETAIL report group need not be specified. 
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In summary reporting, SUM counters are algebraically incremented in 
the same manner as for detail reporting. If more than one DETAIL, report 
group is specified in a report, SUM counters are algebraically 
incremented as though consecutive GENERATE statements were issued for 
all the DETAIL report groups of the report. This consecutive summing 
takes place in the order of the physical appearance of the DETAIL report 
group descriptions. Even if there is more than one DETA-IL report group- 
within a report, only one test for control break is made for each 
GENERATE report-name. This test is made by the Report Writer prior to 
the summary reporting. After initiating a report and before terminating 
the same report, both detail reporting and summary reporting may be 
performed. 



Operation of the GENERATE Statement 



A GENERATE Statement, implicitly in both detail and summary 
reporting, produces the following automatic operations (if defined) : 

1. Steps and tests the LINE COUNTER and/or PAGE COUNTER to produce 
appropriate PAGE FOOTING and/or PAGE HEADING report groups, after a 
line is printed. 

2. Recognizes any specified control breaks to produce appropriate 
CONTROL FOOTING and/or CONTROL WEADING report groups. 

3. Accumulates into the SUM counters all specified identifier (s) . 
Resets the SUM counters. 

U. Executes any specified routines defined by a USE statement before 
generation of the associated report group (s). 



During the execution of the first GENERATE statement, the following 
report groups associated with the report (if specified) are produced in 
the order: 

1. REPORT HEADING report group 

2. PAGE HEADING report group 

3. All CONTROL HEADING report groups in the order FINAL, major to 
minor 

U. The DETAIL report group if specified in the GENERATE statement. 

If a control break is recognized at the time of the execution of a 
GENERATE statement (other than the first that is executed for a report) , 
all CONTROL FOOTING report groups specified for the report are produced 
from the minor report group, up to and including the report group speci- 
fied for the identifier which caused the control break. Then, the 
CONTROL HEADING report group (s) specified for the report are produced, 
starting with the report group specified for the identifier that caused 
the control break, and continuing down to and ending with the minor 
report group. Then, the DETAIL report group specified in the GENERATE 
statement is produced. 

Data is moved to the data item in the Report Group Description entry 
of the Report Section and is edited under control of the Report Writer 
according to the same rules for movement and editing as described for 
the MOVE statement (see "Procedure Division"). 
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INITIATE/TERMINATE Statements 
INITIATE Statement 

The INITIATE statement begins the processing of a report. 



r 1 

I Format | 

j. ^ 

I I 

I INITIATE report-name-1 [report- name- 2] ... | 

i 1 

L J 



Each report-name must be defined by a Report Description entry in the 
Report Section of the Data Division. 

The INITIATE statement resets all data-name entries that contain SUM 
clauses associated with the report; the Report Writer controls for all 
the TYPE report groups that are associated with this report are set up 
in their respective order. 

The PAGE-COUNTER register, if specified, is set to 1 (one) during tne 
execution of the INITIATE statement. If a starting value other than 1 
is desired, the programmer may reset this PAGE-COUNTER following the 
INITIATE statement. 

The LINE-COUNTER register, if specified, is set to zero during the 
execution of the INITIATE statement. 



The INITIATE statement does not open the file with which the report 
is associated; an OPEN statement for the file must be given by the user. 
The INITIATE statem.ent performs Report Writer functions for individually 
described reports analogous to the input and/or output functions that 
the OPEN statement performs for individually described files. 

A second INITIATE statement for a particular report-name may not be 
executed unless a TERMINATE statement has been executed for that 
report-name subsequent to the first INITIATE statement. 



TERMINATE Statement 



The TERMINATE Statement completes the processing o-f a report. 



r 1 

I Format 1 

i. ^ 

I I 

I TERMINATE report-name-1 [report-name-23 ... | 

I i 

L J 



Each re port- name given in a TERMINATE statement must be defined by an 
RD entry in the Data Division. 
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USE BEFORE REPORTING Declarative 

The TERMINATE Statement produces all the CONTROL FOOTING report 
groups associated with this report as though a control break had just 
occurred at the highest level, and completes the Report Writer functions 
for the named reports. The TERMINATE statement also produces the last 
REPORT FOOTING report group associated with this report. 

Appropriate PAGE HEADING and/or PAGE FOOTING report groups are 
prepared in their respective order for the report description. 

A second TERMINATE statement for a particular report may not be 
executed unless a second INITIATE statement has been executed for the 
report -name. 

The TERMINATE statement does not close the file with which the report 
is associated; a CLOSE statement for the file must be given by the user. 
The TERMINATE Statement performs Report Writer functions for indi- 
vidually described report programs analogous to the input/output 
functions that the CLOSE statement performs for individually described 
files. 

If, at object time, no GENERATE statement is executed for a report, 
the TERMINATE statement of the report will not produce any report groups 
and will not perform any SUM processing. 

SOURCE clauses used in CONTROL FOOTING FINAL or REPORT FOOTING report 
groups refer to the values of the items during the execution of the 
TERMINATE Statement. 



USE Sentence 



The USE sentence specifies Procedure Division statements that are 
executed just before a report group named in the Report Section of the 
Data Division is produced. 




A USE sentence, when present, must immediately follow a section 
header in the declaratives portion of the Procedure Division and must be 
followed by a period followed by a space- The remainder of the section 
must consist of one or more procedural paragraphs that define the 
procedures to be used. 

Data-name represents a report group named in the Report Section of 
the Data Division. A data-name must not appear in more than one USE 
sentence. Data-name must be qualified by the report-name if data-name 
is not unique. 

No Report Writer statement (GENERATE, INITIATE, or TERMINATE) may be 
written in a procedural paragraph(s) following the USE sentence in the 
declaratives portion. 

The USE sentence itself is never executed; rather it defines the 
conditions calling for the execution of the USE procedures. 
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The designated procedures are executed by the Report Writer just 
before the named report group is produced, regardless of page or control 
break associations with report groups. The report group may be any type 
except DETAIL. 

Within a USE procedure, there must not be any reference to any 
nondeclarative procedures. Conversely, in the nondeclarative portion, 
there must be no reference to procedure names that appear in the De- 
claratives Section, except that PERFORM statements may refer to a USE 
procedure or to the procedures associated with the USE procedure. 

ftSije;,'' ibjslea:: ^ijSl^es' jto ^u^;^ieiss the'print.ing of; the spec±fied report 
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SPECIAL REGISTERS: PAGE-COUNTER AND LINE-COUNTER 



The fixed data-names, PAGE-COUNTER and LINE-COUNTER, are numeric 
counters automatically generated by the Report Writer based on the 
presence of specific entries; they do not require data description 
clauses. The description of these two counters is included here in 
order to explain their resultant effect on the overall report format. 



PAGE-COUNTER 

A PAGE-COUNTER is a counter generated by the Report Writer to be used 
as a source data item in order to present the page number on a report 
line. A PAGE-COUNTER is generated for a report by the Report Writer if 
a PAGE-LIMIT clause is specified in the RD entry of the report. The 
numeric counter is a 3-byte COMPUTATIONAL- 3 item that is presented 
according to the PICTURE clause associated with the elementary item 
whose SOURCE is PAGE-COUNTER- 

If more than one PAGE-COUNTER is given as a SOURCE data item within a 
given report, the number of numeric characters indicated by the PICTURE 
clauses must be identical. If more than one PAGE-COUNTER exists in the 
program, the user must qualify PAGE-COUNTER by the report name. 

PAGE-COUNTER may be referred to in Report Section entries and in 
Procedure Division statements. After an INITIATE statement, 
PAGE-COUNTER contains one; if a starting value for PAGE-COUNTER other 
than one is desired, the programmer may change the contents of the 
PAGE-COU;:iTER by a Procedure Division statement after an INITIATE 
statement has been executed. PAGE-COUNTER is automatically incremented 
by one each time a page break is recognized by the Report Writer, after 
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the production of any PAGE FOOTING report group but before production of 
any PAGE HEADING report group. 



LINE- COUNTER 

A LINE-COUNTER is a counter used by the Report Writer to determine 
when a PAGE HEADING and/or a PAGE FOOTING report group is to be 
presented. One line counter is supplied for each report with a PAGE 
LIMIT(S) clause written in the Report Description entry (RD) . The 
numeric counter is a 3-byte ||g|^p|^|||i(i#El^.> item that is presented 
according to the PICTURE clause associated with the elementary item 
whose SOURCE is LINE-COUNTER. 

LINE-COUNTER may be referred to in Report Section entries and in 
Procedure Division statements. If more than one Report Description 
entry (RD) exists in the Report Section, the user must qualify 
LINE-COUNTER by the report- name. LINE-COUNTER is automatically tested 
and incremented by the Report Writer based on control specifications in 
the PAGE LIMIT (S) clause and values specified in the LINE NUMBER and 
NEXT GROUP clauses. After an INITIATE statement, LINE-COUNTER contains 
zero. Changing the value of LINE-COUNTER by Procedure Division 
statements may cause page format control to become unpredictable in the 
Report Writer. 

The value of LINE-COUNTER during any Procedure Division test state- 
ment represents the number of the last line printed by the previously 
generated report group or represents the number of the last line skipped 
to by a previous NEXT GROUP specification. 

In a USE BEFORE REPORTING, if no lines have been printed or skipped 
on the current page, LINE-COUNTER will contain zero. In all other 
cases, LINE-COUNTER represents the last line printed or skipped. 
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Report Writer — Sample Program 



SAMPLE REPORT WRITER PROGRAM 



Figure 46 illustrates a Report Writer source program. The records 
used in the report (i.e., input data) are shown after the STOP RUN card 
in the program. Using the first record as an example, the data fields 
are arranged in the following card format: 




Department 
Number 



The decimal point in the cost field is assumed to be two places from 
the right. 



I 000005 
1000010 
1000015 
1000020 
I 000025 
1000030 
J000035 
1000040 
I 000045 
1000050 
1000055 
1000060 
1000065 
1000070 
1000075 
1000080 
1000085 
1000090 
1000095 
1000100 
1000105 
1000110 
1000115 
1000120 
1000125 
1000130 
1000135 
1000140 
1000145 
! 000150 
1000151 
1000155 
1000160 
1000165 
1000175 



IDENTIFICATION DIVISION. 

PROGRAM- ID. ACME. 

REMARKS. THE REPORT WAS PRODUCED BY THE REPORT WRITER. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. IBM-360-F50. 

OBJECT-COMPUTER. IBM-360-F50. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT INFILE ASSIGN TO SYSOOO-UT-2400-S. 
SELECT REPORT-FILE ASSIGN TO SYS001-UT-2400-S. 
DATA DIVISION. 
FILE SECTION. 
FD INFILE 

LABEL RECORDS ARE OMITTED 
DATA RECORD IS INPUT- RECORD. 
01 INPUT-RECORD. 

PICTURE AA. 

PICTURE XXX. 

PICTURE AA. 

PICTURE 99. 

PICTURE A. 

PICTURE A. 

PICTURE 99. 

PICTURE 99. 

PICTURE A. 

PICTURE 999V99. 

PICTURE X(59) . 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



FILLER 

DEPT 

FILLER 

NO-PURCHASES 

FILLER 

TYPE-PURCHASE 

MONTH 

DAY-1 

FILLER 

COST 

FILLER 
FD REPORT-FILE 

LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 121 CHARACTERS 
REPORT IS EXPENSE-REPORT. 
WORKING-STORAGE SECTION. 

77 SAVED-MONTH PICTURE 99 VALUE IS 0. 
77 CONTINUED PICTURE X(ll) VALUE IS SPACE. 



Figure 46. Sample Program Using the Report Writer Feature (Part 1 of 4) 
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1000180 


01 MONTH- TABLE- 1. 


— 1 


1000185 


05 


RECORD-MONTH. 




1000190 




10 


FILLER PICTURE A (9) VALUE IS "JANUARY ". 




1000195 




10 


FILLER PICTURE A (9) VALUE IS "FEBRUARY " 






1000200 




10 


FILLER PICTURE A (9) VALUE IS "MARCH 






1000205 




10 


FILLER PICTURE A (9) VALUE IS "APRIL 






1 000210 




10 


FILLER PICTURE A (9) VALUE IS "MAY 






1000215 




10 


FILLER PICTURE A (9) VALUE IS "JUNE 






1000220 




10 


FILLER PICTURE A (9) VALUE IS "JULY 






1000225 




10 


FILLER PICTURE A (9) VALUE IS "AUGUST 






1 000230 




10 


FILLER PICTURE A (9) VALUE IS "SEPTEMBER" 






1000235 




10 


FILLER PICTURE A (9) VALUE IS "OCTOBER " 






1 000240 




10 


FILLER PICTURE A (9) VALUE IS "NOVEMBER " 






1000245 




10 


FILLER PICTURE A (9) VALUE IS "DECEMBER ". 






1000250 


05 


RECORD- AREA REDEFINES RECORD-MONTH. 




1000255 




10 


MONTHNAME PICTURE A (9) OCCURS 12 TIMES. 




1000260 


REPORT 


SECTION. 




1000265 


RD EXPENSE- 


-REPORT 




1000270 


CONTROLS ARE FINAL MONTH DAY-1 




1000275 


PAGE LIMIT IS 59 LINES 




1000280 


HEADING 


1 




1 000285 


FIRST DETAIL 9 




1000290 


LAST DETAIL 48 




1000295 


FOOTING 


52. 




1000300 


01 TYPE IS 


REPORT HEADING. 




1000305 


05 


LINE NUMBER IS 1 




1000310 




COLUMN NUMBER IS 27 




1000315 




PICTURE IS A (26) 




1000320 




VALUE IS "ACME MANUFACTURING COMPANY". 




1000325 


05 


LINE NUMBER IS 3 




1000330 




COLUMN NUMBER IS 26 




1000335 




PICTURE IS A (29) 




1000340 




VALUE IS "QUARTERLY EXPENDITURES REPORT". 




1000345 


01 PAGE- HEAD 




1000350 


TYPE IS 


PAGE HEADING. 




1000355 


05 


LINE NUMBER IS 5. 




1000360 




10 


COLUMN IS 30 




1000365 






PICTURE IS A (9) 




1000370 






SOURCE IS MONTHNAME (MONTH) . 




1000375 




10 


COLUMN IS 39 




1000380 






PICTURE IS A(12) 




1000385 






VALUE IS "EXPENDITURES". 




1000390 




10 


COLUMN IS 52 




1000395 






PICTURE IS X(ll) 




1000400 






SOURCE IS CONTINUED. 




1000405 


05 


LINE IS 7. 




1000410 




10 


COLUMN IS 2 




1 000415 






PICTURE IS X(35) 




1000420 






VALUE IS "MONTH DAY DEPT NO-PURCHASES". 




1000425 




10 


COLUMN IS 4 




1000430 






PICTURE IS X(33) 




1000435 

L 






VALUE IS- "TYPE COST CUMULATIVE-COST". 


J 



Figure 46. Sample Program Using the Report Writer Feature (Part 2 of 4) 
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I 000440 
1000445 
I 000450 
1000455 
1000460 
1000465 
1000470 
1000475 
1000480 
1 000485 
1000490 
I 000495 
i 000500 
I 000505 
1000510 
1000515 
1000520 
1000525 
1000530 
1000535 
1000540 
I 000545 
1000550 
1 000555 
1000560 
1000565 
1000570 
1000575 
1000580 
1000585 
1000590 
1000595 
1000600 
1000605 
I 000610 
1000615 
1000620 
1000625 
1000630 
1000635 
1000640 
1000645 
1000650 
1000655 
1000660 
1000665 
1000670 
1000675 
1000680 
1000685 
1000690 
1000695 
1000697 
1000698 
1000700 
1 000705 
1000710 
1000715 
1000720 



10 


COLUMN 


24 


10 


COLUMN 


26 


10 


COLUMN 


27 


10 


COLUMN 


30 


10 


MIN- 






IJoECfMN 


49 


10 


COLUMN 


65 



01 DETAIL-LINE TYPE IS DETAIL LINE NUMBER IS PLUS 1. 
05 COLUMN IS 2 GROUP INDICATE PICTURE IS A (9) 

SOURCE IS MONTHNAME (MONTH) . 
05 COLUMN IS 13 GROUP INDICATE PICTURE IS 99 

SOURCE IS DAY-1. 
05 COLUMN IS 19 PICTURE IS XXX SOURCE IS DEPT. 
05 COLUMN IS 31 PICTURE IS Z9 SOURCE IS NO- PURCHASES .* 
05 COLUMN IS 42 PICTURE IS A SOURCE IS TYPE- PURCHASE. 
05 COLUMN IS 50 PICTURE IS ZZ9.99 SOURCE IS COST. v 
01 TYPE IS CONTROL FOOTING DAY-1. 
05 LINE NUMBER IS PLUS 2. 

10 COLUMN 2 PICTURE X(22) 

VALUE "PURCHASES AND COST FOR". 

PICTURE Z9 SOURCE SAVED-MONTH. 
PICTURE X VALUE "-". 
PICTURE 99 SOURCE DAY-1. 
PICTURE ZZ9 SUM NO-PURCHASES.* 

PICTURE $$$9.99 SUM COST." 
PICTURE $$$$9.99 SUM COST* 
RESET ON FINAL. 
LINE PLUS 1 COLUMN 2 PICTURE X(71) 
VALUE ALL "*". 
01 TYPE CONTROL FOOTING MONTH 

LINE PLUS 1 NEXT GROUP NEXT PAGE. 

05 COLUMN 16 PICTURE A<14) VALUE "TOTAL COST FOR". 
COLUMN 31 PICTURE A (9) 
SOURCE MONTHNAME (MONTH). 

COLUMN 43 PICTURE; AAA VALUE "WAS". 
INT 

COLUMN 48 PICTURE $$$9.99 3UM MIN .» 
01 TYPE CONTROL FOOTING FINAL LINE NEXT PAGE? 
05 COLUMN 16 PICTURE A (26) 

VALUE "TOTAL COST FOR QUARTER WAS". 
05 COLUMN 45 PICTURE $$$$9.99 SUM UTT i 
01 TYPE PAGE FOOTING LINE 57. 

05 COLUMN 59 PICTURE X(12) VALUE "REPORT-PAGE-". 
05 COLUMN 71 PICTURE 99 SOURCE PAGE-COUNTER.. 
01 TYPE REPORT FOOTING 

LINE PLUS 1 COLUMN 32 PICTURE A(13) 
VALUE "END OF REPORT". 
PROCEDURE DIVISION. 
DECLARATIVES. 
PAGE-HEAD-RTN SECTION. 

USE BEFORE REPORTING PAGE-HEAD. 
PAGE- HEAD- RTN- SWITCH . 

GO TO PAGE-HEAD- RTN-TEST. 
PAGE-HEAD-RTN- TEST. 

IF MONTH = SAVED-MONTH MOVE "(CONTINUED)" TO CONTINUED 
ELSE MOVE SPACES TO CONTINUED 

MOVE MONTH TO SAVED-MONTH. 
GO TO PAGE-HEAD-RTN-EXIT. 
PAGE- HEAD- RTN- ALTER . 

ALTER PAGE-HEAD-RTN-SWITCH TO PAGE-HEAD-RTN-SUPPRESS. 
PAGE-HEAD-RTN- SUPPRESS. 

MOVE 1 TO PRINT-SWITCH. 
PAGE-HEAD-RTN-EXIT. 

EXIT. 
END DECLARATIVES. 



05 



05 

05 
05 



Figure 46. Sample Program Using the Report Writer Feature (Part 3 of 4) 
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000722 NON-DECLARATIVES SECTION. 

000725 OPEN-FILES. OPEN INPUT INFILE OUTPUT REPORT-FILE. 

0007 30 INITIATE EXPENSE- REPORT. 

000735 READATA. 

000740 READ INFILE AT END GO TO COMPLETE. 

000745 GENERATE DETAIL- LINE. 

000760 GO TO READATA, 

000765 COMPLETE. 

000770 PERFORM PAGE-HEAD-RTN-ALTER. 

000780 TERMINATE EXPENSE-REPORT. 

00078 5 CLOSE INFILE REPORT-FILE. 

000790 STOP RUN. 



AOO 02 AOlOl 00200 

A02 01 AOlOl 00100 

A02 02 COlOl 01600 

AOl 02 B0102 00200 

A04 10 A0102 01000 



AOl 06 00329 04800 
A03 20 E0331 06000 



Figure 46. Sample Program Using the Report Writer Feature (Part 4 of 4) 



Key Relating Report to Report Writer Source Program 

In the key, the numbers enclosed in circles (for example, (T)) relate 
the explanation below to the corresponding output line in Figure 47. 

The six-digit numbers (for example, 000615) show the source statement 
from the program illustrated in Figure 46. 

(T) is the REPORT HEADING resulting from source lines 0003 00-0003 40. 

(2) is the PAGE HEADING resulting from source lines 000345-000435. 

(T) is the DETAIL line resulting from source lines 000440-00048 (note 
that since it is the first detail line after a control break, the 
fields defined with the GROUP INDICATE clause, lines 
000445-000460, appear). 

MH is a DETAIL line resulting from the same source lines as (Y) 

In this case, however, the fields described as GROUP INDICATE do 
not appear (since the control break did not immediately precede 
the detail line) . 

(5) is the CONTROL FOOTING (for DAY-1) resulting from source lines 
000485-000550. 



(?) is the PAGE FOOTING resulting from source lines 000615-000625. 

(T) is the CONTROL FOOTING (for MONTH) resulting from source lines 
000555-000575. 
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8) is the CONTROL FOOTING (for FINAL) resulting from source lines 
000595-000610. 

(9) is the REPORTING FOOTING resulting from source lines 
000630-000640. 



Lines 000650-000715 of the example illustrate a use of USE BEFORE 
REPORTING. The effect of the source is that each time a new page is 
started, a test is made to determine whether the new page is being 
started because a change in MONTH has been recognized (the definition 
for the control footing for MONTH specifies NEXT GROUP NEXT PAGE) or 
because the physical limits of the page were exhausted. If a change in 
MONTH has been recognized, spaces are moved to the PAGE HEADING; if the 
physical limits of the page are exhausted, "(CONTINUED)" is moved to the 
PAGE HEADING. 
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(i> 




^MOIMTH 
(T) JANUARY 




•ACME MflNUFACTUPTNG COMPANY 



QUARTFRLY EXPENDITURES REPCPT 

JANUARY EXPENDITURES 

COST CUMULATIVE-COST 



DAY 


DEPT 


NO-PURCHASES 


TYPE 


COST 


01 


AOO 

— ^A02 

A02 


2 

1 
2 


A 
A 
C 


2.00 

1.00 

16.00 



PURCHASES AMD COST FOR 1-01 5 $19.00 $19.00 

JANUARY 02 AOl 2 B 2.00 

A04 10 A 10.00 

A04 10 C 80.00 



PliRCHASES AND COST FOR 1-02 22 $92.00 $111.00 

JANUARY 05 AOl 2 B 2.00 

PUPCHASES AND COST FOR 1-05 2 $2.00 $113.00 

^ -JU ~Ji^ ^ -J^ -Ji, .1, ^Xr ■J^ 'J^ ^ 'J^ "J^ 'Jl^ -jir ■^ J^ -f^ ■^ -^ ^ ^ ^*^ jL, >i, -Ji, ^ -J^ -Ji, ^ -JL^ JL -S- ■A.'Jl^Ji^-Ji,-^>K^-Ji^^^^<k,-Ji, 

JANUARY 08 AOl 10 A 10.00 

AOl 8 B 12.48 

AOl 20 D 38.40 



PURCHASES AND COST FOR 1-08 38 

JANUAPY 13 AOO ^ 

AOO 1 



$60.88 



$173.88 



6,24 
8.00 



PURCHASES AND COST FOR 1-13 5 $14.24 $188.12 

JAMUARY 15 AOO 10 D lo.20 

A02 1 C 8.00 



PURCHASES AND COST FOR 1-15 11 $27.20 

JANUARY 21 A03 10 E 30.00 

A03 10 F 25.00 

A03 10 G 50.00 



$215.32 



PURCHASES AND COST FOP 1-21 30 $105.00 $320.32 

■y^-^^f'-^^f'^^'r^-v^'f'ir- -P^^^^'T' -r'irV'T"'\r^^'Tr'-**'^^'¥'^*<i''-i*'^^-^^^-Tr'T*-v--r'r''r''r''i*'V' ^r- '■r ^ t- ^ '\^ "T- 't- -^ ■^- -r- 'c- "^^ t 'v ^^ 'r- -r- -y -c n-ipT'if'r^'r'T* 

JANUARY 23 AOO 5 A 5.00 

PUPCHASES AND COST FOR 1-23 5 $5.00 $325.32 

st, -J^ -J^ -.J^ ,J^ -f^ ^ Ji, Ji, -J^ yj, -J^ 'M^ ^ -J^^ -Ji, -Ji, -J^ -Ji^ ^ ^ -Jt, -Ji, -Ji, -J^ >M^ ^ -O^ 



& 



■REPORT-PAGE-01 



Figure i^7. Report Produced by Report Writer Feature (Part 1 of 5) 
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3^ JANUARY 







DAY 
26 



JANUARY EXPENDITURES (CONTINUED) 

DFPT MO-PURCHASES TYPE COST CUMULATI VE-CCST 



A04 
-AO^ 



5.00 
7.80 



"> — — -KU 



PURCHASES AMD COST FOR 1-26 10 $12.80 $338.12 



(Z> 



JAMUARY 27 AOC 6 B 


9.36 


AOO 15 C 


120.00 


PURCHASES AMD COST FOR 1-27 21 


$12<?.36 $467.48 




************************** 


JANUARY 30 AOO 2 B 


3.12 


A0 2 10 A 


10.00 


AO ? 1 C 


8.00 


A04 15 B 


23.40 


AO^ 10 C 


80.00 


PURCHASES AND COST FOR 1-30 38 


$124.52 $592.00 


55:*** **>;=*:!=:}:*--:= ;;c************************i:=****^^=>: 


************************** 


JAMUARY 31 AOC 1 A 


1.00 


A04 6 A 


6.00 


PURCHASES AND COST FOR 1-31 7 


$7.00 $599.00 


********************************************* 


************************** 


TOTAL COST FOR JANUARV WAS 


$599.00 



(?> 



REPORT-PAGE-02 



Figure U7. Report Produced by Report Writer Feature (Part 2 of 5) 
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QT) FFBPUARY 15 




•FEBRUARY EXPENDITURES 



DEPT WG-PURCHASES 



TYPE 



COST CUMULATIVE-COST 



0= 



AO? 






10 






A 


10.00 


AO? 






2 






B 


3.12 


.A02 






1 






C 


8.00 


AO? 






15 






G 


75.00 


A04 






5 






B 


7,80 


A05 






8 






A 


8.00 


A05 






5 






C 


40.00 


T FOR 


2- 


1=^ 


46 








$151.92 $750.92 


**=!=*:{=:!=*>>! 


:***: 


{;*** 


:**** 


*** 


:{s :{c :{c ^ :Jc 


*:<i>!=:{c*************:!c*:!t ******* 



FEBRUARY 16 A02 2 C 16.00 

A06 10 A 10.00 

A07 10 A 10.00 

A07 10 F 25.00 



PURCHASES AND COST FOP 2-16 32 $61.00 $811.92 

*********************************************************************** 

FEBRUARY 17 A07 10 E 30.00 

A07 10 G 50.00 

PURCHASES AND COST FOP 2-17 20 $80.00 $891.92 

*********************************************************************** 



FEBRUARY 


?1 


A06 




20 


A 


20.00 








A06 




20 


B 


31.20 








A06 




20 


C 


160.00 








A06 




20 


D 


38.40 








A06 




20 


E 


60.00 








A06 




20 


F 


50.00 








A06 




20 


G 


100.00 




PURCHASES 


AND 


COST FOP 


2-21 


140 




$459.60 


$1351.52 



*********************************************************************** 
FEBRUARY 27 AOl 21 D 40.32 



PURCHASES AND COST FOR 2-27 21 $40.32 $1391.84 

*********************************************************************** 

FEBRUARY 28 A02 3 B 4.68 

A02 5 C 40.00 

A03 15 E 45.00 

PURCHASES AND COST FOP 2-28 23 $89.68 $1481.52 

*********************************************************************** 

7^ TOTAL COST FOR FEBRUARY WAS $882.52 







ay 



■REPORT-PAGE-03 



Figure 47. Report Produced by Report Writer Feature (Part 3 of 5) 
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MARCH 



DEPT NG-PURCHASES 




EXPENDITURES 
TYPE COST CUMULATIVE-COST 



^-^--^DUF CHASES AND COST FOR 3-01 31 

^-"^ .MARCH 06 A02 5 

PURCHASES AND COST FO" 3-06 5 

MARCH 07 A02 5 

PURCHASES AND COST FOR 3-07 5 

MARCH 13 A02 10 

PURCHASES AMD COST FOR 3-1? 10 
MAPCH 15 



AOl 
A0 2 
A03 
A06 
A06 



?1 
1 
15 



PURCHASES AND CCST FOR 3-15 47 



5.00 

P. 00 

125.00 

$138.00 

5.00 

$5.00 

5.00 

$5.00 

10.00 

$10.00 

21.00 
1.00 
^7.50 
15.00 
12.50 

$87.00 



$161<;.52 



$1624. 52 



$1629.52 



$1639.52 



$1726.52 



MARCH 20 A03 15 E 45.00 



PURCHASES AND CCST FOR 3-20 15 

MARCH 21 AO? 15 

AO? 15 

PURCHASES AND COST FOP 3-21 30 

WARCH 23 A02 2 

PURCHASES AND COST FOP 3-23 2 

T- 'f 1"* 'i- f ■'^ ^f 'f 'f -^"' *>- 'i^ ■T **" T -T- 'I- "r- o^ **" 'r^ ■T ii^ ■^- -v T- ■'■■* 'c •^•' 'r- f- f '{- T 

MARCH 25 AO? 30 

PURCHASES AND CCST FOP 3-25 30 





$45. 


.00 




$1771. 


.52 


***** 


. ^ ^ U, <JU ^1, -.V U^ .a, ^J' OL. ^ JU s>, 

-r T -»- -r -r T- T- T 1- 1- T- -r T- 


^ ^ O^ JU 




:** 


A 


15, 


.00 








c 


37. 


, ''O 










$52. 


.50 




$1824. 


.02 


***** 


■4, O^ ^1, ~S, ■*, -^ O^ ^, O- O, -JU >t, J, 
-t^ ^^ .r,^ ^ y^, ^P -Y* -1' -T(^ -Y* -»- 't* '1- 


:**** 


*********** 


A 


2, 


,00 










$2. 


.00 




$1826. 


,02 




************* 


* * * * 


****^;***:« 


;** 


F 


75. 


.00 










$75. 


.00 




$19 01. 


,02 



(!> 



-REPORT-PAGE-04 



Figure 47. Report Produced by Report Writer Feature (Part 4 of 5) 
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— • »^ARrH EXPENDITURES (CHMTINUED) 

MONTH DAY DEFT NO-PURCHASES TYPE COST CUMUL AT I V^-CHST 
AC2 1 A 1.00 



(3) MARCH 26 



PUFCHASES AND CPST FOR 3-26 1 $1.00 $1Q02.02 

'^^^ ■J^^ ^'^^t^^^^C^"^"'''^'*''^^^'^'^ ^f'1A>^^^>JUNlU«JL.^«•^■JU^■^V a^O^^NL--Jlr-J^-JU0l..ar-X|O; -*^*JI^ ^!L. -Ju -Ji, -^-^^-^ ■JL'-^'J^-J^^Af -^ -J^ 'i^ -A- •J^'Ji^^-Ji^-J^^-Ji^^-Jf 

MARCH 29 AOl 6 C 48.00 



0- 
(i> 



PURCHASES AND COST FOP 3-29 6 $48.00 $1950.02 

-1^ -n- ■¥■ -T- T- -ir 1* 'r -v- 'ir '** ->^ 'i*- -i" "f T- -T- f- -Tt^ 'i^ -^'^ -IP- ^« ",- -Y* 'i" -V -ir T- -Tr T* -T- -r- '*'■ -T^ -^" T- -ir 'V 'r -ni* 'c -ni* -v '*"■ -^^ ^r- <r t^ 'c ^r^ -n^ 'T' 'ir -^ -^ -^ ■V' -r- -r- ^ -^ 't* --r 'f* -tt -tt* "t* 'r- ■t' 

MARCH 31 A03 20 E 60.00 

PURCHASES AND COST FOR 3-31 20 $60.00 $2010.02 

'T' -^^ '1^ n^ '("' ■^ ■T' -V- 't* -^^ ■T!^ ^-^ -1' -^ 'i^ -^ -T- ^ 'T ■'T- '!•■ 'r -^ n^ nr* -T^ ■^"' 'T -i* -nr -v- -r -T* 'r ' 

TOTAL COST FOR MARCH WAS $528.50 



■RFPORT-PAGE-05 



(D- 



(!> 



TOTAL CCST FOR QUARTER WAS $2010.02 



(I> 



REPORT-PAGE-06 

.END OF RFPOPT 



Figure U7. Report Produced by Report Writer Feature (Part 5 of 5) 
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Tf.BLE HANDLING FEATURE 



The Table Handling feature enables the programmer to process tables 
or lists of repeated data conveniently. A. table may have up to three 
dimensions, i.e., three levels of subscripting or indexing can be 
Handled. Such a case exists when a group item described with an OCCURS 
clause contains another group iteia with an OCCURS clause, v/hich in turn 
contains an item with an OCCURS clause. To make reference to any 
element within such a table, each level must be subscripted or indexed. 



SUBSCRIPTING 



Subscripts are used only to refer to an individual element within a 
list or table of elements that have not been assigned individual 
data- names. 



r 1 

I Format j 

|. ^ 

I 1 

1 data-name ( subscript [, subscript] [, subscript]) j 

I I 

L J 



The su bscript , or set of subscripts, that identifies the table 
element is enclosed in parentheses immediately folloiving the space that 
terminates data-name , v^?hich is the name of the table element. When more 
than one subscript appears within a pair of parentheses, each subscript 
must be separated from the next by a corruna followed by a space. 
:ic|sfirj^i;^|:^^;|^|fg:;)«^ No space may 

appear between the left parenthesis and the leftmost subscript or 
between the rightmost subscript and the right parenthesis. To identify 
an element in the table named SA.LA.RY by the set of subscripts lii.hR, 
MONTH, and WEEK, the programmer would write: 

SALARY (YEAR, MONTH, WEEK). 

The subscript can be represented by a numeric literal that is a 
positive integer, by the special register TALLY, or by a data-name. 
Restrictions on the use of a data-name as a subscript are: 

1. Data-name must be a numeric elementary item that represents a 
positive integer. 

2. The name itself may be qualified, but not subscripted. 

The subscript may contain a sign, but the lowest permissible 
subscript value is 1. Hence, the use of zero or a negative subscript is 
not permitted. The highest permissible subscript value in any 
particular case is the maximum number of occurrences of the item as 
specified in the OCCURS clause. 

Qualification may be used in conjunction with subscripting, in which 
case OF or IN follows the da ta -name being subscripted. 
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r 1 

j Format | 

). ^ 

I 

OF ) r OF ) I 

data-name <' V data-narne-1 [ / > data-nanie-2] 

IN j ) IK 

(suDScript[, suDScript][, subscript]) 



I'iote : Data-naiTie is the iteiri being subscripted, not data-name-1 . Ihat 
is, in the statement SALARY OF EMPLOYEE-RECORD (YEAR, MOi-iTH, WEEK), tne 
data item SALARY is subscripted by Yr,AR, MONTH, and WEEK. 



INDEXING 

References can loe irade to individual elements witnin a table of 
elements by specifying indexing for that reference. 

An index is assigned to a given level of a table joy using an INDEXED 
BY clause in the definition of the table. A name given in the INDEXED 
BY clause is known as an index-name and is used to refer to ti^e assigned 
index. An index-name must be initialized by a SET or PERFORM statement 
before it is used in a table reference. An index may be iTiodified only 
by a SET, SEARCH, or PERFORM statement. 



I Format | 

t ^ 

data-name (index-name [ s > integer] 

[, index-name [ < > integer]] [, index-name [ < > integer]]) 

L J 



Direct indexing is specified by using an index-name in the form of a 
subscript. For example, 

ELEMENT (PRIME- INDEX) 

Relative indexing is specified when the terminal space of the 
data-name is followed by a parenthesized group of items: the 
index-name, followed by a space, followed by one of the operators + 
or -, followed by another space, followed by an unsigned integral 
numeric literal. For example, 

ELEMENT (PRIME-INDEX + 5) 

Qualification may be used in conjunction with indexing, in which case 
OF or IN follows the data-nam.e beina indexed. 
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Subscripting and Indexing 

r 1 

I Format | 

^ ^ 

data- name <! > data-name- 1 [ <^ V data-nanie-2] . 

IN i (in 

(index-name [ < ( integer] [, index-name [ \ > integer]] 



[, index-name [ < > integer]]) 



L J 

Note ; Data items described by the USAGE IS INDEX clause permit storage 
of the values of index- names as data without conversion. Such items are 
called index data items. 



RESTRICTIONS ON INDEXING, SUBSCRIPTING, AND QUALIFICATION 

Tables may have one, two, or three dimensions. Therefore, references 
to an element in a table may require up to three subscripts or indexes. 

1. A data-name must not be subscripted or indexed when the data-name 
is itself being used as an index, subscript, or qualifier. 

2. When qualification, subscripting, or indexing are required for a 
given data item, the indexes or suJDScripts are specified after all 
necessary qualification is given. 

3. Subscripting and indexing must not be used together in a single 
reference. 

4. Wherever subscripting is not permitted, indexing is not permitted. 

5. The commas shown in the formats for indexes and subscripts are 
required. 

EXAMPLE OF SUBSCRIPTING AND INDEXING 

For a table with three levels of indexing, the following Data 
Division entries would result in a storage layout as shown in Figure US. 

01 PARTY- TABLE REDEFINES TABLE. 

02 PARTY-CODE OCCURS 3 TIMES INDEXED BY PARTY. 
03 AGE-CODE OCCURS 3 TIMES INDEXED BY AGE. 

04 M-F-INFO OCCURS 2 TIMES INDEXED BY M-F 
PICTURE 9(7)V9 USAGE DISPLAY. 

PARTY-TABLE contains three levels of indexing. Reference to 
elementary items within PARTY-TABLE is made by use of a name that is 
svibscripted or indexed. A typical Procedure Division statement might 
be: 

MOVE M-F- INFO (PARTY, AGE, M-F) TO M-F- RECORD. 

In order to use tne Table Handling feature, the programmer must 
provide certain information in the Data Division and Procedure Division 
of the program. 
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Subscripting and Indexing 



8 bytes 



Byte] 
No. 



AGE-CODE (1, 1) 



PARTY-CODE (1) /AGE-CODE (1, 2) 



AGE-CODE (1, 3) A 



AGE-CODE (2, 1) {|- 



PARTY- TABLE ( PARTY-CODE ( 2) (AGE-CODE (2, 2) <|- 



AGE-CODE (2, 3) h 



AGE-CODE (3, 1) {\- 



PARTY-CODE (3) (AGE-CODE (3, 2) h 



AGE- CODE (3, 3) h 









-^^ 1 


14- F- INFO 


(1, 


1, 


2) 1 


M-F-INFO 


(1/ 


2, 


1) 1 


M-F-INFO 


(1, 


2, 


2) 1 


M-F-INFO 


(1, 


3, 


1)| 


M-F-INFO 


(1, 


3, 


2) 1 


M-F-INFO 


(2, 


1, 


1) 1 


M-F-INFO 


(2, 


1, 


2) 1 


M-F-INFO 


C2, 


2, 


1) 1 


M-F-INFO 


(2, 


2, 


2) 1 


M-F-INFO 


(2, 


3, 


1) 1 


M-F-INFO 


(2, 


3, 


2) j 


M-F-INFO 


(3, 


1, 


1)| 


M-F-INFO 


(3, 


1, 


2) 1 


M-F-INFO 


(3, 


2, 


1)| 


M-F-INFO 


(3, 


2, 


2) 1 


M-F-INFO 


(3, 


3, 


1) j 


M-F-INFO 


(3, 


3, 


2) 1 



16 

24 

32 

40 

48 

56 

64 

72 

80 

88 

96 

104 

112 

120 

128 

136 



a J 



OCCURS 3 TIMES OCCURS 3 TIMES 
Figure 48. Storage Layout for PARTY-TABLE 



OCCURS 2 TIMES 
L J 



DATA DIVISION CONSIDERATIONS FOR TABLE HANDLING 



The OCCURS and USAGE clauses are included as part of the record 
description entries in a program utilizing the Table Handling feature. 



OCCURS Clause 



The OCCURS clause eliminates the need for separate entries for 
repeated data, since it indicates the number of times a series of 
records with identical format is repeated. It also supplies information 
required for the application of subscripts or indexes. 

The OCCURS clause has three formats. 
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OCCURS Clause 



r 1 

I Format 1 | 

|. ^ 

i I 

I OCCURS integer-2 TIMES j 

I I 

I t ASCENDING i | 

I [ < [ KEY IS aata-narrie-2 [data- name- 3] ...]... j 

I /descending) I 

1 I 

j [IN DEXED BY index-name-1 [index-narae-2] ... ] | 

I I 

L J 



r " 1 

j Format 2 | 

|. ^ 

I I 

1 OCCURS integer-1 TO integer-2 TIMES [ DEPENDING ON data-name- 1] | 

I 1 

I ( ASCENDING 1 I 

I [ ] [ KEY IS data-name-2 [data-name-3] ... ] | 

I ' DESCENDING ) | 

I I 

I [INDEXED BY index-name-1 [index- name- 2] ] | 

I I 

L J 



The other data description clauses associated with an entry whose 
description includes an OCCURS clause apply to each occurrence of the 
item described. 

Since three subscripts or indexes are allowed, three nested levels of 
the OCCURS clause are allowed. That is, 3-dimensional tables can oe 
specified. No table may be longer than 32,767 bytes in length, except 
for fixed-length tables in the Working-Storage Section or Linkage 
Section, which may be as long as 131,071 bytes. 

The subject of an OCCURS clause is the data-name of the entry that 
contains this OCCURS clause. The subject of an OCCURS clause must be 
subscripted or indexed whenever reference is made to it in any statement 
other than SEARCH. The subject of an OCCURS clause must not be longer 
than 32,767 bytes. 

When subscripted, the subject refers to one occurrence within the 
table. When not subscripted (permissible only in the SEARCH statement) , 
the subject represents the entire table element. 
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OCCURS Clause 

The OCCURS clause may not be specified in a data description entry 
that: 

1. has a level-01 or level-77 number 

2. describes an item whose size is variable 

(The size of an item is variable if the data description of any 
subordinate item within it contains an OCCURS DEPENDING ON clause — that 
is, an OCCURS clause with the DEPENDING ON option.) 



iBl^MiiiilpiiiliiiiilBiB 
^MIHBiMiiiiiiiiiiiiiiiiiH 



Except for condition- name entries, a record description entry that 
contains an OCCURS clause must not also contain a VALUE clause. 



Within a given record description, the VALUE clause must not be used 
in a data description entry that is subsequent to a data description 
entry that contains an OCCURS DEPENDING ON clause. 

In the discussion that follows, the term "computational" refers to 
COMPUTATIONAL, C0llitm!i3rxaS&L»l.v and C0Mpt)m'H01IIVJ^2 data items. 

When a computational elementary item specifies both the OCCURS and 
SYNCHRONIZED clauses, any necessary slack bytes for each occurrence of 
the item are added by the compiler. When a group item specifies the 
OCCURS clause and also contains SYNCHRONIZED computational elementary 
item.s, any necessary slack bytes for each occurrence of the group are 
added by the compiler, as well as the necessary slack bytes for the 
computational items (see "Slack Bytes" in "Data Division" for a complete 
discussion) . 

In Format 1, inteqer-2 represents the exact nuniber of occurrences. 
In this case, integer-2 must be greater than zero. 



DEPENDI NG ON OPTION ; In Format 2 Stn4 Format 3., the DEPENDING ON option 
is used. This indicates that the subject of this entry has a variable 
number of occurrences. This does not mean that the length of the 
subject is variable, but rather that the number of times the subject may 
be repeated is variable, the number of times being controlled by the 
value of d ata-name- 1 at object time. 

In Format 2, integ e r- 1 represents the minimum number of occurrences, 
and integer-2 represents the maxim.um number of occurrences. Integer-1 
may be zero or any positive integer. Integer- 2 must be greater than 
zero, and also greater than integer-1. Integer-2 must be less than 
32,7 68. The value of d at a-name- 1 must not exceed integer-2. 

,tn Format 3* int<Kqer— 2 represents the; max:ixi«irti number of occurrences, 
and it must be great^e^r than isero ^nd less than 32+768, The u^Iue of 
dat^^^ nam e'^l (R^st not exceed integer- 2. 

29U Part V — Spt^cial Features 



OCCURS Clause 

Data-name-1 , the object of the DEPENDING ON option: 

• Must be described as a positive integer 

• Must not exceed integer-2 in value 

• May be qualified, when necessary 

• Must not be subscripted (that is, must not itself be the subject of, 
or an entry within, a table) 

• Must, if it appears in the same record as the table it controls, 
appear before the variable portion of the record 



If the value of data-name- 1 is reduced, the contents of data items 
whose occurrence numbers exceed the new value of data-name- 1 become 
unpredictable . 

Unused character positions resulting from the DEPENDING ON option 
will not appear on external media. 

The DEPENDING ON option is required only when the last occurrence of 
the subject cannot otherwise be determined. 

Any Data Division entry that contains an OCCURS DEPENDING ON clause, 
or which has subordinate to it an entry that contains an OCCURS 
DEPENDING ON clause, cannot be the object of a REDEFINES clause. 



KEY OPTION ; The KEY option is used in conjunction with the INDEXED Bi 
option in the execution of a SEARCH ALL statement. The KEY option is 
used to indicate that the repeated data is arranged in ASCENDING or in 
DESCENDING order, according to the values contained in data-name- 2 , 
data-name- 3 , etc. 

Data-n ame-2 must be either the name of the entry containing an OCCURS 
clause, or it must be an entry subordinate to the entry containing the 
OCCURS clause. If data-name-2 is the subject of this table entry, it is 
the only key that may be specified for this table. If data-name-2 is 
not the subject of this table entry, all the keys identified by 
data-name-2, data-name-3, etc.; 

• Must oe subordinate to the subject of the table entry itself 

• Must not be subordinate to any other entry that contains an OCCURS 
clause 

• Must not themselves contain an OCCURS clause 

When the KEY option is specified, the following rules apply: 

• Keys must be listed in descending order of significance. 

• The total number of keys for a given table element must not exceed 
12. 

• The sum of the lengths of all keys associated with one table element 
must not exceed 256 bytes. 

• A key may have the following usages: DISPLAY, COMPUTATIONAL- 3, or 
COMPUTATIONAL. 
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OCCURS Clause 

When subordinate entries within the table are variable in length, the 
following rule also applies: 

• Any key in a table element must be at a fixed displacement from the 
beginning of that element (that is, if a table element is of 
variable length, then the keys must precede the variable portion). 

The following example shows a violation of the last preceding rule: 

WORKI NG- STORAGE SECTlbN./ 

77 CURRENT-WEEK PICTURE 99- 

01 TABLE-RECORD. 

02 EMPLOYEE-TABLE OCCURS 100 TIMES 

ASCENDING KEY IS WAGE-RATE ^ EMPLOYEE-NO 

INDEXED BY A, B. 

03 WSEK-RECORD OCCURS 1 TO 52 TIMES 

DEPENDING ON CURRENT-WEEK '; 

INDEXED BY C. 

04 WEEK-NO FIG 99. 

OH AUTHORIZED- ABSENCES PIC 9. I 

OH UNAUTHORIZED-ABSENCES PIC 9. * ; 

04 LATENESSES PIC 9, * •' 

03 EMPLOYEE- NAME PIC X(20). . r ' ■ 

03 EMPLOYEE-NO PIC 9(6). 

03 WAGE-RATE PIC 9999V99. 



•■ ■ til 

; ' r. ' 

WAGE-RATE and EMPLOYEE-NO are invalid as keys, sinaei tjiey* anfe| pl^p^Efd 
after the variable portion of the table. • . - 

!,[ . i ■ 

J I The following example of the KEY option is correcst; 

^ 'WORKING- STORAGE SECTION. a 

' J77 I CURRENT-WEEK PICTURE !99i| . 

''01^ TABLE-RECORD. I ., 

i • ''02' EMPLOYEE- TABLE OCCURS 100 TIKES 
' i ■ i ASCENDING KEY IS WAGE-RATE EMPLOYEE- NO : ' 




! ■; 



\ INDEXED BY A, B. 

I i>03 EMPLOYEE-NAME :PIC,X(20>. 

! ' ! '03 EMPLOYEE- NO PIC 9(6). - 

i ; '03 WAGE-RATE !pIC :9:999\f99. 

' ' 03i WEEK-RECORD OCCURS 1 TO 52 :TIMES 
, , * DEPENDING ON CURRENT-WEEK 
I INDEXED BY C. 

04 WEEK- NO PIC 99. 

04 AUTHORIZED- ABSENCES PIC 9. 

. ' 04 UNAUTHORIZED- ABSENCES PIC 9. 

04 LATENESSES Pfc 9. 



4l' 



The jkqys tfAOE-lEiATS an^ "E*!ttTJ0irEE-NO botii appjear at a fij^d ' 1 , t : 4t ' 
pLi^plac^oBpat/frjCHa thje i^egifucting of the tattle .felawent pMi^IXD^EjEHP,iygl|Ef.^f, 

INDEXED BY OPTION : The INDEXED BY option is required if the subject of 
this entry (the data-name described by the OCCURS clause, or an item 
within this data-name, if it is a group item) is to be referred to by 
indexing. The index-name(s) identified by this clause is not defined 
elsewhere in the program, since its allocation and format are dependent 
on the system, and, not being data, cannot be associated with any data 
hierarchy. 

The number of index- name s for a Data Division entry must not exceed 
12. 
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OCCURS Clause 

An index-name must be initialized through a SET or PERFORM statement 
before it is used. 

Each index-name is a f ullword in length and contains a binary value 
that represents an actual displacement from the beginning of the table 
that corresponds to an occurrence number in the table. The value is 
calculated as the occurrence number minus one, multiplied by the length 
of the entry that is indexed by this index-name. 

For example, if tne programmer writes 

A OCCURS 15 TIMES INDEXED BY Z PICTURE IS X(10) 
on the fifth occurrence of A, the binary value contained in Z will be: 
Z = (5 - 1) * 10 = 40 

Note that, for a table entry of variable length, the value contained in 
the index-name entry will become invalid when the table entry length is 
changed, unless the user issues a new SET statement to correct the value 
contained in the index-nam.e. 



The following example of the setting of values in index-name is 
incorrect: 



DATA DIVISION. 



77 E PICTURE S9(5) COMP SYNC. 
01 ... 

02 A OCCURS 10 INDEXED BY IND-1... 

03 B OCCURS 10 DEFENDING ON E INDEXED BY IND-2 



PROCEDURE DIVISION. 



MOVE 8 TO E 
SET IND-1 TO 3 
SEARCH A . . . 



MOVE 10 TO E 
SEARCH A . . . 

(Moving 10 to E changes the length of the table entry A, so that IND-1 
now contains an invalid value.) 
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OCCURS Clause 

The following example of the setting of values in index-name is 
correct: 



DATA DIVISION. 



77 E PICTURE S9(5) COMP SYNC. 
77 D PICTURE S9(5) COMP SYNC. 



01 



02 A OCCURS 10 INDEXED BY IND-1... 

03 B OCCURS 10 DEPENDING ON E INDEXED BY IND-2, 



PROCEDURE DIVISION, 



MOVE 8 TO E 
SET IND-1 TO 3 
SET D TO IND-1 
SEARCH A . . . 



MOVE 10 TO E 
SET IND-1 TO D 
SEARCH A . . - 



(Here the user has saved the occurrence number in D, and then later 
reset IND-1 to obtain the corrected value.) 



There are two types of indexing: Direct Indexing and Relative 

Indexing. 



Dire ct Indexing : If a data-name is used in the procedure text with 
index- names, the data-name itself must be the subject of an INDEXED BY 
option, or be subordinate to a group (s) that is the subject of the 
INDEXED BY Option. 

In the following example 

A (INDEX-1, INDEX-2, INDEX-3) 

implies that A belongs to a structure with three levels of OCCURS 
options, each with an INDEXED BY option. However, if data-nagie '( A, in . 
this example) belongs to an OCCURS structure that does not use tiie 
INDEXED BY Option, this compiler accepts the specification of 
ind ex- names (in this example lNDEX-1, lNDEX-2, INDEX-3) and assumes the 
user has set them to values that correspond to the occurrenq^ number lae 
Wishesvtoi"ef ereiiceL" '"';■ ■ ' ;' 
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USAGE IS INDEX Clause 

Relative Indexing ; The index-name is followed by a space, followed 
by one of the operators + or -, followed by another space, followed by 
an unsigned numeric literal. The numeric literal is considered to be an 
occurrence number, and is converted to an index value before being added 
to, or subtracted from, the corresponding index- name. 

Given the following example: 

A (Z + 1, J + 3, K + U) 

where : 

table element indexed by Z has an entry length of 100 
table element indexed by J has an entry length of 10 
table element indexed by K has an entry length of 2 

the resulting address will be computed as follows: 

(ADDRESS of A) + Z + |100 * 1| + J + |10 * 3| + K + |4 ♦ 2 | 



conversion of integers 
to index values 



USAGE IS INDEX Clause 



The USAGE IS INDEX clause is used to specify the format of a data 
item stored internally. 



r 1 

i Form.at j 

|. _ ^ 

I I 

I [ USAGE IS] INDEX 1 

I i 

L J 

The USAGE IS INDEX clause allows the programmer to specify index data 
items . 

An index data item is an elementary item (not necessarily connected 
with any table) that can be used to save index-name values for future 
reference. An index data item must be assigned an index-name value 
(i.e., (occurrence number - 1) * entry length) tnrough the SET 
statement. Such a value corresponds to an occurrence number in a table. 

The USAGE IS INDEX clause may be written at any level. If a group 
item is described with the USAGE IS INDEX clause, it is the elementary 
items within the group that are index data items ; the group itself is 
not an index data item, and the group name cannot be used in SEARCH and 
SET statements or in relation conditions. The USAGE clause of an 
elementary item canQot contradict the USAGE clause of a group to which 
the item belongs. 

An index data item can be referred to directly only in a SEARCH or 
SET statement or in a relation condition. An index data item can be 
part of a group which is referred to in a MOVE or an input/output 
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Table Handling — Relation Condition 

statement. When such operations are executed, however, there is no 
conversion of the contents of the index data item. 



An index data item cannot be a conditional variable. 



The SYNCHRONIZED, JUSTIFIED, PICTURE, BLANK WHEN ZERO, or VALUE 
clauses cannot be used to describe group or elementary items described 
with the USAGE IS INDEX clause. Htawever;, this ccmepxJU^tr allows ;th,e-- use 
of Slft*3HE»lN0;jZgE|D .v^eai .USAGE lis ' ISDE:^ /fca 'x>bt^aici ^Mi<ijL^%!- ^tS'e"^ot',^i^'~':it-&m... 



PROCE DURE DI VISION CONSID ERAT IONS FOR TABLE HANDLING 

The SEARCH and the SET statements may be used to facilitate table 
handling. In addition, there are special rules involving Table Handling 
elements when they are used in relation conditions. 



Relation Conditions 

Comparisons involving index-names and/or index data items conform to 
the following rules: 

1. The comparison of two index-names is actually the comparison of the 
corresponding occurrence numbers. 

2. In the comparison of an index-name with a data item (other than an 
index data item) , or in the comparison of an index-name with a 
literal, the occurrence number that corresponds to the value of the 
index-name is compared with the data item or literal. 

3. In the comparison of an index data item with an index-name or 
another index data item, the actual values are compared without 
conversion. 

Any other comparison involving an index data item is illegal. 

Figure 4 9 gives permissible comparisons for index-nam.es and index 
data items. 
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SEARCH Statement 



Second 
Operand 



First 
Operand 



Index-name 



Index 
Data Item 



Data- name 
(numeric 
integer only) 



Numeric 
literal 
(integer only) 



Index-name 



compare 

occurrence 

number 



compare 
without 
conversion 



compare 
occurrence 
number with 
data-name 



compare 
occurrence 
number with 
literal 



Index Data Item 



compare 
without 
conversion 



compare 
without 
conversion 



illegal 



illegal 



Data -name 
(numeric 
integer only) 



compare 

occurrence 

number 

with 

data-name 



illegal 



-+ 



-+ 



Numeric 
literal 
(integer only) 



compare 

occurrence 

number 

with 

literal 



illegal 



See Figure 23 

for 
Permissible 
Comparisons 



Figure 49. Index- names and Index Data Items — Permissible Comparisons 



SEA.RCH Statement 



The SEARCH statement is used to search a table for an element that 
satisfies a specified condition, and to adjust the value of the 
associated index-name to the occurrence number corresponding to that 
table element.. 



I Format 1 

^ 



SEARCH identifier-1 [VARYING 



index-name-1 



] 



(identif ier-2' 
[AT END imperative- statement- 1] 

J imperative- statement- 2 



WHEN condition- 1 



[WHEN condition- 2 



'next SENTENCE 
[imperative-statement- 3 

I NEXT SENTENCE 



L J 
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SEARCH Statement 



r 1 

I Format 2 | 

|. ^ 

I 
SEARCH AIrL identifier-1 [AT END imperative-statement-1] | 

I 

1 imperative- statement- 2) ] 

WHEN condition- 1 } ' | 

( UEXT SENTENCE ) | 

I 

L J 

The Data Division description of identifier-1 must contain an OCCURS 
clause with the INDEXED BY option. identiJEie^r-l mi&t^ ooft iife-- 
as a floating-point item. '' ,''''"%;>'* 

When written in the SEARCH statement, identifier-1 must refer to all 
occurrences within one level of a table; that is, it must not be 
subscripted or indexed. 

Iden tifier-1 can be a data item subordinate to a data item that 
contains an OCCURS clause, thus providing for a two or three dimensional 
table. An index-name must be associated with each dimension of the 
table through the INDEXED BY phrase of the OCCURS clause. Execution of 
a SEARCH statement causes modification only of the setting of the 
index-name associated with identifier-1 (and, if present, of 
index-name-1 or identif ier-2 ) . Therefore, to search an entire two or 
three dimensional table, it is necessary to execute a SEARCH statement 
several times; prior to each execution, SET statements must oe executed 
to adjust the associated index-naiRes to their appropriate settings. 

In the AT END and WHEN options, if any of the specified imperative 
statement (s) do not terminate with a GO TO statement, control passes to 
the next sentence after execution of the imperative statement. 

Format 1 Considerations — Identif ier-2 , when specified, must be 
described as an index data item, or it must be a fixed-point numeric 
elementary item described as an integer. When an occurrence numoer is 
incremented, identif ier-2 is simultaneously incremented by the same 
amount. 

Condition-1 , condition- 2 , etc., may be any condition, as follows: 

relation condition 
class condition 
condition-name condition 
sign condition 
switch-status condition 
(condition) 

{AND^ 
> condition 
OR ) 

(See Conditions section of "Procedure Division.") 

Upon the execution of a SEARCH statement, a serial search takes 
place, starting with the current_index setti ng. 

If, at the start of the SEARCH, the value of the index-name 
associated with identifier- 1 is not greater than the highest possible 
occurrence number for identifier-1, the following actions take place: 

1. The condition (s) in the WHEN option are evaluated in the order they 
are written. 
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SEARCH <St5J:^ent 

If none of the conditions are satisfied, the" index-name for i 
identifier-1 is incremented to reference the next table element, 
and step 1 is repeated. 




if, upon evaluation, one of the V7HEN conditions is satisfied, the 
search terminates imr.;ediately, and the im.perative- statement 
associated with that condition is executed. The index-name points \ 
to the table elem:ent that satisfied the condition. 



4. If the end of the table is reacned without the WHEN condition being 
satisfied, the search terminates as describea in the next 

If at the start of the search, the value of the index-name associated 
with identifier-1 is greater than the highest permissible occurrence 
number for identifier-1, the search is terirdnated immediately, and if 
the AT END option is specified, imperative- statement-1 is executed. If 
this option is omitted, control passes to the next sentence. 

When the VARYiriG ihdex-name-1 option is not s_pieci^ied, the index used 
for the search is the first (or only) index-name associated with 
identifier-1 . 

When the VARYING index-name- 1 option is specified, one of tne 
following applies: 

• If index-name- 1 is one of the indexes for identifier-1 , index-name-1 
is used for the search. Otherwise, the first (or only) index-name 
for identifier-1 is used. 

• If index-nanie-1 is an index for another table entry, then when the 
index-name for identifier-1 is incremented to represent the next 
occurrence of the table- index-name-1 is simultaneously incremented 
to represent the next occurrence of the table it indexes. 

A flowchart of the Format 1 SEARCH operation containing two WHEN 
options is shown in Figure 50. 
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SEARCH Statement 



****A2*** ****** 

► EXECUTION * 

► OF SEARCH * 
* BEGINS * 

*************** 



*** INDEX SETTING EQUALS 
HIGHEST PERMISSIBLE 
OCCURRENCE NUMBER 



*****Bit ********** 



*. CONDITION-1 



WHEN CONDITION-l 



WHE:-) C0.^DITI0N-2 ^ 



V 
*****E2 ********** 

* INCREMENT * 
♦INDEX- NAME FOR * 

* IDENTIFIER-1 * 

* (INDEX- NAME- 1 * 

* IF APPLICABLE)* 
***************** 



V 
*****F2*** ******* 

* INCREMENT * 
+ INDEX-NAME-1 * 

* 'FOR ANOTHER * 

* TABLE) OR * 

* IDENTIFIER-2 * 
***************** 



***************** 



*****Q4********** 



+******+***+****+ 



*** + *Ijll* + ** + ** + ** 



*. CONDITION-2 .* >* 



***************** 



** EACH OF THESE CONTROL TRANSFERS IS TO THE NEXT 

SENTENCE UNLESS THE IMPERATIVE-STATEJ5ENT ENDS WITH 
A GO TO STATEMENT. 



Figure 50. Format 1 SEARCH Operation Containing Two WHEN Options 



w> WT rCLL l_ 



— opt;<-:lcti rearures 



SEARCH Statement 

Format 2 Considerations — The first index-name assigned to 
identif ier- 1 will be used for the search. 

The description of identifier-1 must contain the KEY option in its 
OCCURS clause. 

Condition- 1 must consist of one of the following: 

• A relation condition incorporating the EQUALS, EQUAL TO, or equal 
sign { = ) relation. Either the subject or the object (but not 
both) of the relation condition must consist solely of one of the 
data-names that appear in the KEY clause of identifier-1 . 

• A condition-name condition in which the VALUE clause describing the 
condition-name consists of a single literal only. The conditional 
variable associated with the condition-name must be one of the 
d ata-names that appear in the KEY clause of identifier-1 . 

• A compound condition formed from simple conditions of the types 
described above, with AND as the only connective. 

Any data-name that appears in the KEY clause of identifier-1 may be 
tested in condition-1. However, all data-names in the KEY clause 
preceding the one to be tested must also be so tested in condition-1. 
No other tests may be made in condition-1. 

For example, if the following table were defined in the Data 
Division: 

77 VALUE-1 PICTURE 99. 



02 A OCCURS 10 TIMES ASCENDING KEY IS KEYl, KEY2 , KEY3, KEY4 
INDEXED BY I. 
03 KEYl PICTURE 9. 
03 KEY2 PICTURE 99. 
03 KEY3 PICTURE 9. 
03 KEY4 PICTURE 9. 

88 BLUE VALUE 1. 



in the Procedure Division, valid WHEN phrases could be: 



WHEN KEYl (I) = 3 AND KEy2 (I) = 10 AND KEY3 (I) = 5 

WHEN KEYl (I) = 3 AND KEY2 (I) = VALUE-1 
AND KEY3 (I) = 5 AND BLUE (I) ... 



During execution of a Form at 2 SEARCH s tatement, a binary search 
takes place; the setting of index-name is varied during the search so 
that at no time is it less than the value that corresponds to the first 
element of the table, nor is it ever greater than the value that 
corresponds to the last element of the table. If condition-1 cannot be 
satisfied for any setting of the index within this permitted range, 
control is passed to imperative- statement-1 when the AT END option 
appears, or to the next sentence when this clause does not appear. In 
either_case^, the final setting of the index is not predictable. If tBe 
index indicates an~"occufxence Chat "ITllow^ satisfied, 

control passes to imperative-statement-2 . 
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SET Statement 



SET Statement 



The SET statement establishes reference points for table handling 
operations by setting index-names to values associated with table 
elements. The SET statement must be used when initializing index-name 
values before execution of a SEARCH statement; it may also be used to 
transfer values between index-names and other elementary data items. 



r 1 

I Format 1 | 

j. ^ 

I I 

I rindex-name-1 [ index-name- 2] ... » ( index-name-3 i | 

I SET ] [ TO ]identifier-3[ | 

I / identif ier-1 [identif ier-2] . . . ) (literal-1 ) | 

I I 

L J 

r 1 

I Format 2 | 

|. ^ 

I I 

I tll£ BY 1 f identifier- 4 

( SET index-name- 4 [index-name- 5] ... | ( ] 

I /down by) /literal- 2 



All identifiers must name either index data items or fixed-point 
numeric elementary items described as integers; however, identif ier-4 
must not name an index data item. When a literal is used, it must be a 
positive integer or zero. Index-names are related to a given table 
through the INDEXED BY option of the OCCURS clause; when index-names are 
specified in the INDEXED BY option, they are automatically defined. 

All references to index-name-1 , identif ier-1 , and index-name- 4 apply 
equally to index-name- 2 , ide ntif ier- 2 , and index-name- 5 , respectively. 

Format 1 considerations — When the SET statement is executed, one of 
the following actions occurs: 

1. Index-name-1 is converted to a value that corresponds to the same 
table element to which either index-name- 3 , identif ier-3 , or 
literal-1 corresponds. If identifier-3 is an index data item, or 
if index-name-3 is related to the same table as index-name-1, no 
conversion takes place. To be valid, the resultant value of 
index-name must correspond to the occurrence number of an element 
in the associated table. 

2. If i dentifier-1 is an index data item, it is set equal to either 
the contents of index-name-3 or identifier-3 , where identifier-3 is 
also an index data item. Literal-1 cannot be used in this case. 

3. If identifier-1 is not an index data item, it is set to an 
occurrence number that corresponds to the value of index-name-3 . 
Neither identifier-3 nor literal-1 can be used in this case. 

Format 2 Considerations — When the SET statement is executed, the 
contents of index- name- 4 (and index- name- 5 , etc., if present) are 
incremented (UP BY) or decremented (DOWN BY) by a value that corresponds 
to the number of occurrences represented by the value of literal-2 or 
identif ier-4. 
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Table Handling — Sample Program 
SAMPLE TABLE HA NDLING PROGRA.M 

The program in Figure 51 illustrates the Table Handling feature, 
including the use of indexing, of the SET statement, and of the SEARCH 
statement (including the VARYING option and the SEARCH ALL format) . 

The census bureau uses the program to compare: 

1. The number of births and deaths that occurred in any one of the 50 
states in any one of the past 20 years with 

2. The total number of births and deaths that occurred in the same 
state over the entire 20 -year period 

The input file, INCARDS, contains the specific information upon which 
the search of the table is to be conducted. INCARDS is formatted as 
follows; 

STATE-NAME a 4-character alphabetic abbreviation of the state name 

M-F-CODE 1 = male; 2 = female 

YEARCODE a 4-digit field in the range 1950 through 1969 

A typical run might determine the number of females born in New York 
in 1953 as compared with the total number of females born in New York in 
the past 20 years. 

r ^ 1 

IDENTIFICATION DIVISION. 

PROGRAM- ID. TABLES. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-360. 
OBJECT- COMPUTER. IBM-360. 
SPECIAL-NAMES. CONSOLE IS TYPEWRITER. 
INPUT-OUTPUT SECTION. 
FILE- CONTROL. 

SELECT INFILE ASSIGN TO SYS007-UT-2400-S-INTAPE, 

SELECT OUTFILE ASSIGN TO SYS012-UR-1403-S-PRTOUT. 

SELECT INCARDS ASSIGN TO SYS013-UR-2540R-S-ICARDS. 
DATA DIVISION. 
FILE SECTION. 

FD INFILE LABEL RECORDS ARE OMITTED. 
01 TABLE-1 PIC X(28200). 
01 TABLE-2 PIC X(1800). 

FD OUTFILE LABEL RECORDS ARE OMITTED. 
01 PRTLINE PIC X(133). 

FD INCARDS LABEL RECORDS ARE OMITTED. 
01 CARDS. 

02 STATE-NAME PIC X(4). 

02 M-F-CODE PIC 9. 

02 YEARCODE PIC 9(4). 

02 FILLER PIC X(71). 
WORKING- STORAGE SECTION. 
01 PRTAREA-2 0. 

02 FILLER PIC X VALUE SPACES. 

02 YEARS-20 PIC 9(4) . 

02 FILLER PIC X(3) VALUE SPACES. 

02 BIRTHS-20 PIC 9(7). 

02 FILLER PIC X(3) VALUE SPACES. 

02 DEATHS-20 PIC 9(7). 

02 FILLER PIC X(108) VALUE SPACES. 

Figure 51. Sample Table Handling Program (Part 1 of 2) 
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Table Handling — Sample Program 



PRTAREA. 


02 


FILLER 


02 


YEAR 


02 


FILLER 


02 


BIRTHS 


02 


FILLER 


02 


DEATHS 


02 


FILLER 



01 

PIC X. 
PIC 9(4) . 

PIC X(3) VALUE SPACES. 
PIC 9(5). 

PIC X(3) VALUE SPACES. 
PIC 9(5). 

PIC X(112) VALUE SPACES. 
01 CENSUS- STATISTICS- TABLE. 

02 STATE-TABLE OCCURS 50 TIMES INDEXED BY ST. 
03 STATE- ABBREV PIC X(4). 
03 M-F OCCURS 2 TIMES INDEXED BY SE. 

04 STATISTICS OCCURS 20 TIMES ASCENDING KEY IS YEAR 
INDEXED BY YR. 
05 YEAR PIC 9(4). 
05 BIRTHS PIC 9(5). 
05 DEATHS PIC 9(5) . 
01 STATISTICS-LAST-20-YRS. 

02 M-F-20 OCCURS 2 TIMES INDEXED BY SE-20. 

03 STATE- 20 OCCURS 50 TIMES INDEXED BY ST-20. 
04 YEARS-20 PIC 9(4). 
04 BIRTHS-20 PIC 9(7). 
04 DEATHS-20 PIC 9(7). 
PROCEDURE DIVISION. 
OPEN-FILES. 

OPEN INPUT INFILE INCARDS OUTPUT OUTFILE. 
RE AD- TABLE. 

READ INFILE INTO CENSUS-STATISTICS-TABLE 

AT END GO TO READ-CARDS. 
READ INFILE INTO STATISTICS-LAST- 2 0-YRS 
AT END GO TO READ-CARDS. 
READ- CARDS. 

READ INCARDS 

AT END GO TO EOJ. 
DETERMINE- ST. 

SET ST ST-20 TO 1. 

SEARCH STATE-TABLE VARYING ST-20 AT END GO TO ERROR-MSG-1 
WHEN STATE-NAME = STATE-ABBREV (ST) NEXT SENTENCE. 
DETERMINE- SE. 

SET SE SE-20 TO M-F-CODE. 
DETERMINE- YR. 

SEARCH ALL STATISTICS AT END GO TO ERROR-MSG-2 

WHEN YEAR OF STATISTICS (ST, SE, YR) = YEARCODE 
GO TO WRITE-RECORD. 
ERROR-MSG-1. 

DISPLAY "INCORRECT STATE " STATE-NAME UPON TYPEWRITER. 
GO TO READ-CARDS. 
ERROR-MSG-2. 

DISPLAY "INCORRECT YEAR " YEARCODE UPON TYPEWRITER. 
GO TO RE AD- CARDS. 
WRITE-RECORD. 

MOVE CORRESPONDING STATISTICS (ST, SE, YR) TO PRTAREA. 
WRITE PRTLINE FROM PRTAREA AFTER ADVANCING 3. 
MOVE CORRESPONDING STATE-20 (SE-20, ST-20) TO PRTAREA-20. 
WRITE PRTLINE FROM PRTAREA-20 AFTER ADVANCING 1. 
GO TO RE AD- CARDS. 
EOJ. 

CLOSE INFILE INCARDS OUTFILE. 
STOP RUN. 



Figure 51. Sample Program for the Table Handling Feature (Part 2 of 2) 



TSr>-^-i- \r _- 



Specxal FccitUi ea 



Segmentation -- Organization 



SEGMENTATION FEATURE 



The segmentation feature allows the problem programmer to specify 
object program overlay requirements. The segmentation feature permits 
segmentation of procedures only. The Procedure Division and Environment 
Division are considered in determining segmentation requirements for an 
object program. 



ORGANIZATION 

Although it is not mandatory, the Procedure Division for a source 
program is usually written as several consecutive sections, each of 
which is composed of a series of closely related operations that are 
designed to" perform collectively a particular function. However, when 
segmentation is Used, the entire Procedure Division must be in sections. 
In addition, each section must be classified as belonging either to the 
fixed portion or, to one of the independent segments of the object 
program. Segmentation in no way affects the need for qualification of 
procedure- names to ensure uniqueness. 



FIXED PORTION 

The fixed portion is defined as that part of the object program that 
is logically treated as if it were always in computer storage. This 
portion of the program is composed of two types of computer storage seg- 
ments, permanent segments and overlayable fixed segments. 

A permanent segment is a segment in the fixed portion that cannot be 
overlaid by any other part of the program. 

An overlayable fixed segment is a segment in the fixed portion which, 
although logically treated as if it were always in storage, can be 
overlaid (if necessary) by another segment to optimize storage utiliza- 
tion. However, such a segment, if called for by the program, is always 
made available in the state it was in when it was last used. 

Depending on the availability of storage, the numoer of permanent 
segments in the fixed portion can be varied through the use of a special 
facility called SEGWENT-LIMIT, which is discussed in "Structure of 
Program Segments." 



INDEPENDENT SEGMENTS 

An independent segment is defined as that part of the object program 
which can overlay, and be overlaid by, either an overlayable fixed seg- 
ment or another independent segment. An independent segment is always 
considered to be in its initial state each time it is made available to 
the program. 
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Segmentation Control and Structure 
SEGM ENT CLASSIFICATION 

Sections that are to be segmented are classified by means of a system 
of priority numbers. The following criteria should be used: 

• Logical requirements ; Sections that must be available for 
reference at all times, or which are referred to very frequently, 
are normally classified as belonging to one of the permanent 
segments; sections that are less frequently used are normally 
classified as belonging either to one of the overlayable fixed 
segments or to one of the independent segments, depending on logic 
requirements . 

• Frequency of use : Generally, the more frequently a section is 
referred to, the lower its priority number should be; the less 
frequently it is referred to, the higher its priority number should 
be. 

• Relationship to other sections : Sections that frequently 
communicate with one another should be given equal priority 
numbers. All sections with the same priority number constitute a 
single program segment. 



SEGME NTATION CONTROL 

The logical sequence of the program is the same as the physical 
sequence except for specific transfers of control. A reordering of the 
object module will be necessary if a given segment has its sections 
scattered throughout the source program. However, the compiler will 
provide transfers to maintain the logic flow of the source program. The 
compiler will also insert instructions necessary to load and/or initial- 
ize a segment when necessary. Control may be transferred within a 
source program to any paragraph in a section; that is, it is not 
mandatory to transfer control to the beginning of a section. 



STRUCTURE OF PROGRAM SEGMENTS 



PRIORITY NUMBERS 



Section classification is accomplished by means of a system of 
priority numbers. The priority number is included in the section 
header. 



r 1 

I Format | 

I. ^ 

I I 

I section-name SECTION [priority-number] . | 

I I 

L J 



All sections that have the same priority-number constitute a program 
segment with that priority. 

The priority-number must be an integer ranging in value from 
through 99. 
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SEGMENT -LIMIT Clause 

Segments with priority -numbers through 49 belong to the fixed 
portion of the object program. 

Segments with priority-numbers 50 through 99 are independent 
segments. 

Sections in the declaratives portion of the Procedure Division must 
not contain priority-numbers in their section headers. They are treated 
as fixed segments with a priority-number of zero. 

If the priority- number is omitted from the section header, the 
priority is assumed to be zero. 

When a procedure-name in an independent segment is referred to by a 
PERFORM statement contained in a segment with a different priority 
number, the segment referred to is made available in its initial state 
for each execution of the PERFORM statement. 



SEGMENT LIMIT 

Ideally, all program segments having priority-numbers ranging from 
through 49 are treated as permanent segments. However, when insuffi- 
cient storage is available to contain all permanent segments plus the 
largest overlayable segment, it becomes necessary to decrease the number 
of permanent segments. The SEGMENT-LIMIT feature provides the user with 
a means by which he can reduce the number of permanent segments in his 
program, while these permanent segments still retain the logical 
properties of fixed portion segments (priority numbers through 49) . 



r n 

I Format | 

I. ^ 

I I 

I [SEGMENT-LIMIT IS priority-number] | 

I I 

L J 



The SEGMENT- LIMIT clause is coded in the OBJECT-COMPUTER paragraph. 

Priority-number must be an integer that ranges in value from 1 
through 49. 

When the SEGMENT-LIMIT clause is specified, only those segments 
having priority-numbers from up to, but not including, the priority 
number designated as the segment limit are considered as permanent 
segments of the object program. 

Those segments having priority numbers from the segment limit through 
49 are considered as overlayable fixed segments. 

When the SEGMENT-LIMIT clause is omitted, all segments having 
priority numbers from through 49 are considered to be permanent 
segments of the object program. 
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Segmentation Restrictions 



RESTRICTIONS ON PROGRAM FLOW 



When segmentation is used, the following restrictions are placed on 
the ALTER and PERFORM gt-atements -*-^^-*^'-— **-'*^'^^"^-'-^"^-"^- 



ALTER Statement 



1. A GO TO statement in a section whose priority numoer is 50 or 
higher must not be referred to by an ALTER statement in a section 
with a different priority number. 

2. A GO TO statement in a section whose priority number is lower than 
50 may be referred to by an ALTER statement in any section, even if 
the GO TO statement to which the ALTER refers is in a segment of 
the program that has not yet been called for execution. 



PERFORM Statement 



1. A PERFORM Statement that appears in a section whose priority number 
is lower than the segment limit can have within its range only the 
following: 

a. Sections with priority numbers lower than 50. 

b. Sections wholly contained in a single segment whose priority 
number is higher than 49. 



2. A PERFORM Statement that appears in a section whose priority number 
is equal to or higher than the segment limit can have within its 
range only the following: 

a. Sections with the same priority number as the section 
containing the PERFORM statement. 

b. sections with priority numbers that are lower than the segment 
limit. 







When a procedure- name in a permanent segment is referred to by a 
PERFORM statement in an independent segment, the independent segment is 
reinitialized upon exit from the performed paragraphs. 






l«ra|f||i|iily^ 'i^^ I bfe^ s egmisnt ed . 
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COPY Statement 



SOURCE PROGRAM LIBRARY FACILITY 



Prewritten source program entries can be included in a source program 
at compile time. Thus, an installation can use standard file 
descriptions, record descriptions, or procedures, without receding them. 
These entries and procedures are contained in user-created libraries; 
they are included in a source program by means of a COPY statement. 



COPY Statement 



The COPY statement permits the user to include prewritten Data 
Division entries. Environment Division clauses, and Procedure Division 
procedures in his source program. 



Format 



COPY library-name 



word- 2 



!wora-z 1 
literal- 1 ' 
identifier-lJ 



( word- 4 
[word-3 BY ]literal-2 

f identifier-2 



]...] 



L J 



No Other statement or clause may appear in the same entry as the COPY 



Statement, "Sirae 



When the library text is copied from the library, compilation is the 
same as though the text were actually part of the source program. 



The COPY statement processing is terminated by the end of the library 
text. 



The text contained in the library must not contain any COPY 
statements . 



Library -name is the name of the library text contained in the user's 
library. Library- name must follow the rules of formation for 
program- name. The first eight characters are used as the identifying 
name. 
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COPY Statement 



General Format 



I- 



Option 1 (within the Configuration Section) : 

SOURCE-COMPUTER . COPY statement. 
OBJECT-COMPUTER . COPY Statement. 
SPECIAL-NAMES. COPY statement. 



Option 2 (within the Input-Output Section) : 



FILE- CONTROL. 



COPY statement. 



I-0-CONTROL. COPY statement. 




< ^'t' v** *i * / "^1 >**♦ **'* 5 4*'.* < •«^** I a 't.Bv 






Option 4 (within the File Section) : 



SD 



file-name COPY statement, 
sort- file-name COPY statement. 



Option 5 (within the Report Section) 
RD report-name COPY statement. 



Option 6 (within a File or Sort description entry, or within the 
Working-Storage Section or*^^||!^^^^^J^^^|^i) : 

01 data-name COPY statement. 



Option 7 (with a Report Group) : 

[data-name] COPY statement 




I Option 10 (within the Procedure Division) : 



I section-name SECTION [priority-number]. COPY statement. 
I paragraph-name. COPY statement. 



The words preceding COPY conform to margin restrictions for COBOL 
programs. On a given source program card containing the completion of a 
COPY statement, there must be no information beyond the statement 
terminating period. The material introduced into the source program by 
the COPY statement will follow the COPY statement on the listing 
beginning on the next line. |i;iil 

If the REPLACING option is used, each word specified in the format is 
replaced by the stipulated word , identifier , or literal which is 
associated with it in the format. 

Word-1 , word- 2 , etc. , may be a data-name, procedure-name 
condition-name, mnemonic-name, or file-name. 
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COPY Statement 

Use of the REPLACING option does not alter the iraterial as it appears 
in the library. 

When options 1, 2, 3|i| U, 5, or 10 are written, the words COPY 
library-name are replaced by the information identified by library-name. 
This information comprises the sentences or clauses needed to complete 
the paragraph, sentence, or entry containing the COPY statement. 

When options 6, 7|fili|flbi|-;# are written, the entire entry is replaced 
by the information identified by library-name , except that data-name (if 
specified) replaces the corresponding data-namie from, the library. 

For example, if the library entry PAYLIB consists cu the following 
Data Division record; 

01 A. 

02 B PIC S99. 

02 C PIC S9(5)V99. 

02 D PIC S9999 OCCURS TC 52 TIMES 

DEPENDING ON B OF A. 

the programmer can use the COPY statement in the Data Division of his 
program as follows: 

01 PAYROLL COPY PAYLIB. 

In this program, the library entry is then copied; the resulting entry 
is treated as if it had been written as follows: 

01 PAYROLL. 

02 B PIC S99. 

02 C PIC S9(5)V99. 

02 D PIC S9999 OCCURS TC 52 TIMES 

DEPENDING ON B OF A. 

Note that the data-name A has not been changed in the DEPENDING ON 
option. 

To change some (or all) of the names within the library entry to 
names he wishes to reference within his programi, the programmer can use 
the REPLACING option: 

01 PAYROLL COPY PAYLIB REPLACING A BY PAYROLL 
B BY PAY-CODE C BY GROSSPAY. 

In this program, the library entry is copied; the resulting entry is 
treated as if it had been written as follows: 

01 PAYROLL. 

02 PAY-CODE PIC S99. 

02 GROSS-PAY PIC S9(5)V99. 

02 D PIC S9999 OCCURS TC 52 TIMES 

DEPENDING ON PAY-CODE OF PAYROLL. 

The changes shown are made only for this program. The entry as it 
appears in the library remains unchanged. 
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BASIS/ INSERT/DELETE Statements 
EXTENDED SOURCE PROGRA M LIBR ARY FACILITY 

A complete program may be included as an entry in the user's library 
and may be used as the basis of compilation. Input to the compiler is/a 
BASIS card, followed by any number of INSERT and/or DELETE cards, fol- 
lowed by any number of debugging packets, if desired. Deoug packets 
must be inserted (using the INSERT card) at the end of the BASTS member 
(see "Debugging Language" ) - 



BASIS Card 



r — ~-^- — -~ ■ — : ■ ^- — ■ — '-^ • '~ — . — " ' ■ — ■ 1 

1 Format j 

j. . . ______ ^________________________ ______ ^___4 

i ( 

I BASIS library-name j 

1 ■ ■ ^ ■ \ 

L : ■ . J 



The word BASIS followed by library-name may appear anywhere within 
columns 1 through 72 on the card. There must be no other text on the 
card. 

Libr ary-name must follow the rules of formation for program-name. It 
is the name by which the library entry is known to the control program. 
The first eight characters are used as the identifying name. 

If the INSERT or DELETE cards follow the BASIS card, the library 
entry is modified prior to being processed by the compiler. Use of 
INSERT or DELETE cards does not alter the material in the library. 



INSERT Card 



r ■ 1 

I Format | 

j. _ _ _ ^ 

I I 

I INSERT sequence-number -field | 

I I 

L : : ; ■ — : : J 



DELETE card 



^ — - — ., . .— . — -^ — ^ ^ 

I Format I 

I-— _ __ .. — ,^ 

I I 

1 DELETE sequence-number-field j 

I i 

■t , .^. ■ J- 
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The \ffoxd IKBERT or DEI*ETB^ followed i>y a ^pace, foXlovred 1:^ : .^s? 

ge<:Tt3tenc^-7; nqB03er-£leI<3. may appear anywhere within coluMia 1 tJaroiiglst 72><m 
th& card* There imst be ao otiier text cm the card* 

Each number in aequefice-^aaaiber-fieX^ must refer to a aeq-aeiic^ njsjg^yer. 
Of tlte baeic lii>rary entry* *l?he sequeiice-iiusifcber is ±h0 ^Ix'-digit mm&si&^' 
the proqx^wmex assigtt$ iii col^tsin^ 1 tiiro^gh & of tim COB0I* Coding Form*. 

' The nufflbera in the secr^enc^ei";iipaber-fieid must be xn a$<re«ding . ^ ,, ■ " 
numerical order from the fir^St IlSSEST/DELETl card to tijee last ^ ' . .? 

IJ^SEILT/DEI^ETE card in the program., . .. ;^" 




i^^q*4 2003105. At- lea^t oi^e neisr siource pr<:!^ragi <^t^ sixsmt. follow tbs 
insEHT card for ifis^rtion after the c^rd specified hy the 
^egyence-nuBaber- field* ^ . ' ••. 

Th0 ^iutrles comprisljsg a-et i ^tence-mimher^field of a PBxigXE card^ jm^t 1^^' 
nts^hers.or raa^es of jiwu^rs* Bach entry mumt be ^eparat^ £r<m thk -■- :- '^ 
preceding entry by a cotratia followed by a space* ife^nges of wmh^^^ ^are^' --'• 
iiidioated by separating the two boimding ut^smbers of the raape by a ^ "- ^^ '"." 
hyphen- For example? .^ ^ ' ' - - ~ . 

000001-000005, OOOOIO \^ , ■ -^J 

sotiroe prograta oards laay follow^ a VtElMTE card, f^r in^-ertlou be£oir«s t.1^:-,^ 
card following the last one dieleted* , , ^ ' . , ; ^^5^; 



Source Program Library Facility 317 



Page of GC28-6394-4, -5, -6 revised 12/03/76 by TNL GN26-0887 



The following statements are provided for program debugging. They 
may appear anywhere in an IBiM American National Standard COBOL program 

after the first paragraph name or in a compile-time debugging packet. 

For the TRACE and EXHIBIT statements, the output is written on the 
system list device (SYSLST) . 



READY/RESET TRACE Statement 



r 1 

I Format | 

1^ ^ 

TRACE 




L J 



After a READY TRACE Statement is executed, each time execution of a 
paragraph or section begins, its compiler-generated card number is 
displayed. 

The execution of a RESET TRACE statement terminates the functions of 
a previous READY TRACE statement. 



EXHIBIT Statement 



r T 

I Format | 

|. ^ 

NAMED ) (identif ier-1 



EXHIBIT \ CHANGED NAME D > 

CHANGED ' f nonnumeric-literal-1 

identifier-2 

jionnumeric- literal- 2 

L J 



The execution of an EXHIBIT statement causes a formatted display of 
the identifiers (or nonnu meri c literals ) listed in the statement. 

Iden tifiers listed in the statement cannot be any special register 
except TALLY. 

Nonnumeric- literals listed in the statement are followed by a space 
when displayed. 



; EXHIBIT Sfcatement 

The display of the operands is continued as described for the DISPLAY 
statement. A maximum logical record size of 120 characters is assumed. 

EXHIBIT NAMED : Each time an EXHIBIT NAMED statement is executed, there 
is a formatted display of each identifier listed and its value. Since 
both the identifying name and the value of the identifier are displayed, 
a fixed columnar format is unnecessary. If the list of operands 
includes nonnximeric-liter a ls , they are displayed as remarks each time 
the statement is executed. 

The format of the output for each identifier listed in the EXHIBIT 
NAMED statement is : 

original identifying name, including qualifiers if written (no more 

than 120 characters in length) 
space 

equal sign 
space 

value of identifier (no more than 256 bytes in length) 
space 

EXHIBIT CHANGED NAMED ; Each time an EXHIBIT CHANGED NAMED statement is 
executed, there is a display of each identifier listed and its value 
only if the value has changed since the previous time the statement was 
executed. The initial time such a statement is executed, all values are 
considered changed and are displayed. If the list of operands includes 
nonnumeric- literals , they are displayed as remarks each time the 
statement is executed. 

Since both the identifying name and the value of each identifier is 
displayed, a fixed columnar format is unnecessary. If some of the 
identifiers have not changed in value, no space is reserved for them. 
If none of the identifiers have changed in value, no blank line(s) will 
be printed, 

. The format of the output for each identifier listed in the EXHIBIT 
CHANGED NAMED statement is: 

original identifying name, including qualifiers if written (no more 

than 120 characters in length) 
space 

equal sign 
space 

value of identifier (no more than 256 bytes in length) 
space 

EXHIBIT CHANGED ; Each time an EXHIBIT CHANGED Statement is executed, 
there is a display of the current value of each identifier listed only 
if the value has changed since the previous time the statement was 
executed. The initial time the statement is executed, all values are 
considered changed and are displayed. If the list of operands includes 
nonnum.eric-literals , they are printed as remarks each time the statement 
is executed. 

The format of the output for a specific EXHIBIT CHANGED statement 
presents each operand in a fixed columnar position. Since the operands 
are displayed in the order they are listed in the statement, the 
programmer can easily distinguish each operand. The following 
considerations apply: 

• If there are two or more identifiers as operands, and some, but not 
all, are changed from the previous execution of the statem.ent, only 
the changed values are displayed. The positions reserved for a 
given operand are blank when the value of the operand has not 
changed. 
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• If none of the operands nave changed in value from the previous 
execution of the statement, a blank line(s) will be printed. 

• Variable length identifiers are not permitted as operands. 

• The storage reserved for any operand cannot exceed 256 bytes. 

Note : The combined total length of all operands for all EXHIBIT CHANGED 
NAMED plus all EXHIBIT CHANGED Statements in one program cannot exceed 
32,767 bytes. 



If two distinct EXHIBIT CHANGED NAMED or two EXHIBIT CHANGED 
statements appear in one program, each specifying the same identifiers , 
the changes in value of those identifiers are associated with each of 
the two separate statements. Depending on the path of program flow, the 
values of the identifier saved for comparison may differ for each of the 
two statements. 



ON (Count-conditional) Statement 

The ON statement allows the programmer to specify when the statements 
it contains are to be executed. 

r 1 

I Format 1 | 

|. ^ 

ON integer-1 [AND EVERY integer-2] [UNTIL integer-3] 

/imperative-statement . . .) ( ELSE ) /statement ...^ 
jNEXT SENTENCE / } OTHERWISE f ) NEXT SENTENCE ( 



r 1 

I Format 2 (Version 3) | 

|. ^ 

; integer-1 i ^ integer-2 

ON { } [AND EVERY 



identif ier-1 ' (identif ier-2 

J integer-3 j t imperative- statement i 

[UNTIL } } i } f 



( identif ier-3) (NEXT SENTENCE 

/ ELSE \ /statement — ) 
) OTHERWISE f ) NEXT SENTENCE | 



All integers specified in the ON statement must be positive and no 
greater than 16,777,215. 

The phrase ELSE/OTHERWISE NEXT SENTENCE may be omitted if it 
immediately precedes the period for the sentence. 
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All identifiers must be fixed- point numeric items described as 
integers. Their values must be positive and no greater than 
16,777,215. 

At object time each identifier must be initialized to a positive 
value before the first execution of the ON statement. Between 
executions of the ON statement, the values contained in the 
identifiers may be modified. The programmer's manipulation of these 
values in no way affects the compiler-generated counters associated 
with the ON statement. 

In the following discussion, each reference to integer- 1 applies 
equally to identifier-1 . Similarly, each reference to inteqer-2 
applies to identifier-2 , and each reference to inteqer-3 applies to 
identifier-3 . 

In all .versions of the compiler, the ON statement is evaluated and 
executed as follows: 

• Each ON statement has compiler-generated counters and save areas 
associated with it. The counters are initialized in the object 
program. Each time the path of program flow reaches the ON 
statement, the counters are incremented, and the count-condition 
(integer-1 AND EVERY integer-2 UNTIL integer-3) is tested. 

• If the count- condition is satisfied, the imperative-statement (or 
NEXT SENTENCE) preceding ELSE/OTHERWISE is executed. (Note that an 
imperative- statement may consist of a series of imperative 
statements . ) 

• If the count-condition is not satisfied, the statement (s) (or NEXT 
SENTENCE) following ELSE/OTHERWISE is executed. If the 
ELSE/OTHERWISE Option does not appear, the next sentence is 
executed. 

The count-condition is evaluated as follows: 

• If only integer- 1 has been specified, then the count-condition is 
satisfied only once: when the path of program flow has reached the 
ON statement integer-1 times — that is, when the value in the 
counter equals integer-1. 

• When only integer-1 and integer-3 are specified, then the value of 
inteqer-2 is assumed to be one, and the coiint-^condition is satisfied 
when the value in the counter is any value within the range 
integer-1 through inteqer-3 . 

• If only inteqer-1 and inteqer-2 are specified, then the 
count-condition is satisfied each time the value in the counter is 
equal to inteqer-1 + ( integer-2 ♦ K) , where K is any positive 
inteqer or zero. No upper limit for the execution of the ON 
statement is assumed. 

• When all three inteqers are specified, then the count-condition is 
satisfied as in the last preceding case, except that an upper limit 
beyond which the count-condition cannot be satisfied is specified. 
The upper limit is integer-3 . 
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DEBUG Card 

COMP ILE-TIME DEBUGGING PACKET 

Debugging statements for a given paragraph or section in a program 
may be grouped together into a debijigging packet. These statements will 
be compiled with the source language program and will be executed at 
object time. Each packet refers to a specified paragraph-name or 
section-name in the Procedure Division. Compile-time debugging packets 
are grouped together and are placed immediately following the source 
program. No reference to procedure-names in debug packets may be made 
in the body of the program. 



DEBUG Card 



Each compile time debug packet is headed by the control card DEBUG. 



r 1 

I Format | 

^ -I 

I I 

I DEBUG location j 

i I 

L J 



The word DEBUG followed by location may appear anywhere within 
columns 1 through 72 on the card. There must be no other text on the 
card. 

The location is the section-name or paragraph- name (qualified, if 
necessary) indicating the point in tne program at which the packet is to 
be executed. Effectively, the statements in the packet are executed as 
though they were physically placed in the source program following the 
section-name or paragraph-name, but preceding the text associated with 
the procedure. The same location must not be used in more than one 
DEBUG control card. Location cannot be a paragraph-name within any 
DEBUG packet. 

A debug packet may consist of any procedural statements conforming to 
the requirements of COBOL. The following considerations apply: 

• A PERFORM or ALTER Statement in a debug packet may refer to a 
procedure-name in any debug packet or in the main body of the 
Procedure Division. 

• A GO TO Statement in a debug packet may not refer to a 
procedure-name -in another debug packet, but it may refer to a 
procedure-name in the main body of the Procedure Division. 
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There are four statements that allow the programmer to control the 
spacing of the source program listings produced by the COBOL compiler. 
These statements are: EJECT, SKIPl, SKIP2, and SKIP3. They may be 
written anywhere in the source program. 



EJECT Statjement 

The EJElCT statement instructs the compiler to print the next source 
statement at the top of the next page. 



The word EJECT may be written anywhere within Area B and must be the 
only statement on the card. There must be no punctuation. 



SKIPl, SKIP2, and SKIP3 Statements 

These statements instruct the compiler to skip 1, 2, or 3 lines 
before printing the next source statement. 



r ^ 

I Format | 

|. ^ 

1 Area B 

fSKIPl) 
SKIP2[ 
SKIP3) 

L J 



SKIPl tells the compiler to skip 1 line (double spacing) . 
SKIP2 tells the compiler to skip 2 lines (triple spacing) . 
SKIP3 tells the compiler to skip 3 lines (quadruple spacing) . 

SKIPl, SKIP2, or SKIP3 may be written anywhere within Area B and must 
be the only statement on the card. There must be no punctuation. 
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sterling Conventions 
STERLING CURRENCY FEATURE AND INTERNATIONAL CONSIDERATIONS 



COBOL provides facilities for handling sterling currency items by 
means of an extension of the PICTURE clause. Additional options and 
formats, necessitated by the nondecimal nature of sterling 
and by the conventions by which sterling amounts are represented in 
punched cards, are also available. 

COBOL provides a means to express sterling currency in pounds, 
shillings, and pence, in that order., There are 2C shillings in a pound, 
and 12 pence in a shilling. Although sterling amounts are sometimes 
expressed in shillings and pence only (in which case the number of 
shillings may exceed 99), within machine systems, shillings will always 
be expressed as a two-digit field. Pence, when in the form of integers, 
likewise will be expressed as a two-digit field. However, provision 
must be made for pence to be expressed as decimal fractions as well, as 
in the form 17s.l0.237d. 

The IBiM method for representing sterling amounts in punched cards 
uses two columns for shillings and one for pence. Tenpence (lOd.) is 
represented by an '11' punch and elevenpence (lid.) by a '12' punch. 
The British Standards Institution (B.S.I.) representation uses single 
columns for both shillings and pence. The B.S.I, representation for 
shillings consists of a '12' punch for ten shillings and the alphabetic 
punches A through I for 11 through 19 shillings, respectively. 

Note ; The B.S.I, representation for shillings precludes the use of more 
than 19 shillings in a sterling expression; therefore, 22/10 (that is, 
22 shillings 10 pence) must be expanded by the user to 1/2/10. 
Similarly, the guinea — 21 shillings — or any multiple thereof, must 
be expanded to pounds and shillings. 

The indicated representations may be used separately or in 
combination, resulting in four possible conventions. 

1. IBM shillings and IBM pence 

2. IBM shillings and B.S.I, pence 

3. B.S.I, shillings and IBM pence 

U. B.S.I, shillings and B.S.I, pence 

Any of these conventions may be associated with any number of digits 
(or none) in the pound field and any number of decimal places (or none) 
in the pence field. In addition, sign representation may be present as 
an overpunch in one of several allowable positions in the amount, or may 
be separately entered from another field. 

Two formats are provided in the PICTURE clause for the representation 
of sterling amounts: sterling report format (used for editing) and 
sterling nonreport format (used for arithmetic). 
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sterling Nonreport Format 

In the formats that follow, n stands for a positive integer other 
than zero. This integer enclosed in parentheses and following the 
symbols 9, B, etc., indicates the nuruber of consecutive occurrences of 
the preceding symbol. For example, 9(6) and 999999 are equivalent. The 
PICTURE characters used to describe sterling items are: 

6789CD*,/BZV. £ : sdCRDB+- 

(The character £ is the sterling equivalent of the character $.) 

Note: The lower-case letters "s" and "d" are represented by an 11-0-2 
punch and a 12-0-4 punch, respectively. 

STERLING NONREPORT 



The format of the PICTURE clause for a sterling nonreport data item is: 



r 1 

I Format | 

l^ ^ 

(PICTURE) re [6] 



IS 9[(n)]D[8]8D { > [[V]9[(n)]] [USAGE IS] DISPLAY-ST 

PIC ) (7[7] 

L 



Note; For a sterling nonreport picture to be valid, it must contain a 
pound field, a shilling field, and a pence field. 

The representation for pounds is 9[{n)]D where: 

1. The character 9 indicates that a character position will always 
contain a numeric character, and may extend to n positions. 

2. The character D indicates the position of an assumed pound 
separator. 

The representation for shillings is [818D where: 

1. The characters [8] 8 indicate the position of the shilling field and 
the convention by which shillings are represented in punched cards. 
88 indicates IBM shilling representation occupying a two-column 
field. 8 indicates B.S.I, single-column shilling representation. 

2. The character D indicates the position of an assumed shilling 
separator. 

The representation for pence is; 
;6[6] 



[[V39[(n)]] 
7[7]' 

1. The character 6 indicates IBM single-column pence representation 
wherein lOd. is represented by an '11' punch and lid. by a '12' 
punch. The characters 66 indicate two-column representation of 
pence, usually from some external medium other than punched cards. 
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2. The character 7 indicates B.S.I, single-column pence representation 
wherein lOd. is represented by a '12' punch and lid. by an '11' 
punch. The characters 77 indicate two-coluitm representation of 
pence. Consequently, 66 and 77 serve the same purpose and are 
interchangeable . 

3. The character V indicates the position of an assumed decimal point 
in the pence field. Its properties and use are identical with that 
of V in dollar amounts. Decimal positions in the pence field may 
extend to n positions. 

4. The character 9 indicates that a character position will always 
contain a numeric character, and may extend to n positions. 

Example : Assume that a sterling currency data item used in arithmetic 
expressions is to be represented in IBM shillings and IBM pence, and 
that this data item will never exceed 99/19s/lld. Its picture should 
be: 

PICTURE 9(2)D88D6 DISPLAY-ST. 

The VALUE clause must not be specified for sterling nonreport items. 



Sterling Sign Representation 

Signs for sterling amounts may be entered as overpunches in one of 
several allowable positions of the amount. A sign is indicated by an 
embedded S in the nonreport PICTURE immediately to the left of the 
position containing the overpunch. Allowable overpunch positions are 
the high-order and low-order positions of the pound field, the high- 
order shilling digit in two-column shilling representation, the 
low-order pence digit in two-column pence representation, or the least 
significant decimal position of pence. 

The following are examples of sterling currency nonreport data items 
showing sign representation in each of the allowable positions: 

PICTURE S99D88D6V9(3) DISPLAY-ST 

PICTURE 9S9D88D6V9(3) DISPLAY-ST 

PICTURE 9(2)DS88D6V9(3) DISPLAY-ST 

PICTURE 9(2)D88D6S6V9(3) DISPLAY-ST 

PICTURE 9(2)D88D6V99S9 DISPLAY-ST 
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STERLING REPORT 



The sterling currency report data is composed of four portions 
pounds, shillings, pence, and pence decimal fractions. 



FORMJlT I 
^ 

(PICTURE . 

IS 

(pic ) 

[pound-report-string] [pound-separator-string] delimiter 

shilling-report-string [shilling-separator-string] delimiter 

pence-report-string [pence-separator-string] [sign-string] 

[USAGE IS] DISPLAY-ST 

Pound-R eport- String - This string is optional. It is subject to the 
same rules as other numeric edited items, with tne following exceptions: 

• The allowable characters are: ^ (pound symbol) 9 Z * + - (zero) B 
, (comma) . 

• The total number of digits in the pound-report-string plus the 
fractional-pence field cannot exceed 15. (That is, if there are 11 
digits in the pound-report-string, there cannot oe more than 4 
digits in the fractional-pence-field.) 

• The character £ is the sterling equivalent of $. 

• Termination is controlled by the pound-separator-string. 

Pound-Separator-String - This string is optional. It may include one 
character, or any combination of the following characters: 

B : / . (period or decimal point) 

Editing of the separator characters is dependent upon the use of C or 
D as delimiters. 

The Delim it er Characters - The delimiter characters C and D are 
required. They primarily serve to indicate the end of the pounds and 
shillings portions of the picture. In addition, they serve to indicate 
the type of editing to be applied to separator characters to the right 
of the low-order digit (of the pounds and shillings integer portions of 
the item) . 

The delimiter character D indicates that separator character (s) to 
the right of the low-order digit position (of the field delimited) are 
always to appear; that is, no editing is performed on the separator 
character (s) . 

The delimiter character C indicates that if the low-order digit 
position (of the field delimited) is represented by other than the edit 
character 9, editing continues through the separator character(s) . 

The delimiter characters C and D are used for editing purposes only. 
They do not take up space in the printed result. 
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The following examples show the editing performed when a value of 
zero is moved to a sterling report item. 

**/CZ9s/D99d 
would result in 

***bOs/OOd 
whereas, if the picture were 

**/DZ9s/D99d 
the result would be 

+ */J30s/00d 

The delimiter C is equivalent to D when the low-order digit position 
is represented by a 9. That is, the following two pictures are 
equivalent: 

ZZ9/DZ9/D99 
ZZ9/CZ9/C99 

The delimiters used for the pounds and shillings portion of the 
picture need not be the same. 

Note: Although the pound- report-string and the pound-separa tor-string 
are optional, a delimiter character (either C or D) must be present; 
thus, when programming for shillings and pence only, the PICTURE clause 
must begin PICTURE IS C (or D) . 

Shilling-Report-String - This is a required two-character field. It is 
made up of the following characters: 

9 8 X ♦ 

The valid combinations of these characters are: 

99 Z9 ZZ Z8 *9 *♦ +8 

The 8 is an edit character and is treated as a 9. However, if the 
digits to the left of the edit character 8 are zeros, the 8 is treated 
as the character that precedes it (either Z or ♦) . 

Shilling-Separa tor-String - This string is optional- It may include one 
character, or any combination of the following characters: 

B : / s . (period or decimal point) 

Editing of the shilling-separator characters is dependent upon the 
use of C or D as delimiters. 

Pence-Report-Strinq - This field is made up of two parts: a required 
whole-pence field, and an optional fractional-pence field. 

The required whole-pence field is a two-character field, made up of 
the following symbols: 

9 8 Z ♦ 

Valid combinations of these characters are: 

99 Z9 ZZ Z8 *9 ** *8 

The function of the editing character 8 is the same as in the 
shilling-report-string. 
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The optional fractional-pence field is indicated by a decimal point 
followed by one or more 9's. It is used to specify fractional pence in 
decimal form- 

The total number of digits in the fractional-pence field plus the 
pound-report-string cannot exceed 15. 

Pence- Separator-String - This string is optional and may consist of one 
or both of the following characters: 

d . (period or decimal point) 

If both characters are used, they must be used in the order shown abo\'^e. 

Sign-Field - This field is optional and may consist of: 

• optionally, one or more blanks (B) , followed by 

• one of the following one- or two-^character combinations: 

+ - CR DB 
Sterling Report editing applications are shown in Figure 52. 
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Figure 52. Sterling Currency Editing Applications 



A sterling report PICTURE may have a BLANK WHEN ZERO clause 
associated with it specifying that the item described is filled with 
spaces whenever the value of the item is zero. 

If the VALUE clause is specified for a Sterling Report item, the 
literal must be alphanumeric. The VALUE clause is treated exactly as it 
is specified, with no editing performed. 

The maximum length of a sterling report item is 127 characters. 
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PROCEDURE DIVISION CONSIDERATIONS 

The MOVE, DISPLAY, ACCEPT, EXAMINE, and TRANSFORM statements, 
arithmetic statements, and relation tests may be written containing 
identifiers that represent sterling items. 

If a nonsterling value is moved into a Sterling report item, the 
compiler treats the value as pence, and converts it to 
pounds/shillings/pence. 

Sterling items are not considered to be integers and should not be 
used where an integer is required. 



INTERNATIONAL CONSIDERATIONS 



1 . The functions of the period and the comma may be exchanged in the 
PICTURE character-string and in numeric literals by writing the 
clause DECIMAL-POINT IS COMMA in the SPECIAL-NAMES paragraph of the 
Environment Division. 

2. The PICTURE of report items may terminate with the currency symbol 
in cases where the graphic $ is supplanted oy a particular national 
currency symbol, through use of the CURRENCY SIGN IS literal clause 
in the SPECIAL- NAMES paragraph of the Environment Division. 
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SUPPLEMENTARY MATERIAL 



• APPENDIXES 

A: Intermediate Results 

B: Sample Programs 

C: American National Standard COBOL Formats and Reserved Words 

D: File-Processing Techniques and Applicable Statements and Clauses 

E: ASCII Considerations (Version 3) 

F: Symbolic Debugging Feature (Version 3) 

G: Combined Function Card Processing (Version 3) 

• IBM American National Standard COBOL Glossary 
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APPENDIX A: INTERMEDIATE RESULTS 



This appendix discusses the conceptual compiler algorithms for 
determining the number of integer and decimal places reserved for 
intermediate results. The following abbreviations are used: 

i — number of integer places carried for an intermediate result 

d — number of decimal places carried for an intermediate result 

dmax — maximum number of decimal places defined for any operand (except 
for floating-point operands, exponents, or divisors) in a particular 
statement 

opl — first operand in a generated arithmetic statement 

op 2 — second operand in a generated arithmetic statement 

dl,d2 — number of decimal places defined for opl or op2, respectively 

ir — intermediate result field obtained from the execution of a generated 
arithmetic statement or operation. Irl , ir2, etc. , represent 
successive intermediate results. These intermediate results are 
generated either in registers or in storage locations. Successive 
intermediate results may have the same location. 

In the case of an arithmetic statement containing only a single pair 
of operands, no intermediate results are generated, except when the 
TRUNC option is specified for COMPUTATIONAL items. Intermediate results 
are possible in the following cases: 

1. In an ADD or SUBTRACT statement containing multiple operands 
immediately following the verb. 

2. In a COMPUTE statement for a series of arithmetic operations. 

3. In arithmetic expressions contained in IF or PERFORM statements. 

In such cases, the compiler treats the statement as a succession of 
operations For example, the following statement: 

COMPUTE Y=A+B*C-D/E+F**G 

is replaced by 



** F 


BY G 


yielding irl 


MULTIPLY B 


BY C 


yielding ir2 


DIVIDE E 


INTO D 


yielding irS 


ADD A 


TO ir2 


yielding ir4 


SUBTRACT ir3 


FROM ir4 


yielding ir5 


ADD ir5 


TO irl 


yielding Y 



COMPILER CALCULATION OF INTERMEDIATE RESULTS 

The number of integer places in an ir is calculated as follows: 

• The compiler first determines the maximum value the ir can contain 
tjy performing the statement in which the ir occurs. 
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1. If an operand in this statement is a data-name, the value used 
for the data-name is equal to the numerical value of the 
PICTURE for data-name (e.g., PICTURE 9V99 has value 9.99). 

2. If an operand is a literal, the literal's actual value is used. 

3. If an operand is an intermediate result, the value determined 
for the intermediate result in a previous arithmetic operation 
is used. 

4. If the operation is division: 

a. If op2 is a data-name, the value used for op2 is the 
minmnum nonzero value of the digit in the PICTURE for the 
data-name (e.g., PICTURE 9V99 has the value 0.01). 

b. If op2 is an intermediate result, the intermediate result 
is treated as though it had a PICTURE, and the minimum 
nonzero value of the digits in this PICTURE is used. 

• When the maximum value of the ir is determined by the above 
procedures, i is set equal to the number of integers in the 
maximum Value. 

• The number of decimal places contained in an ir is calculated as: 



Operation 
+ or - 

* 

/ 
** 



Decimal Places 

dl or d2, whichever is greater 
dl + d2 

dl - d2 or dmax, whichever is greater 
dmax if op2 is nonintegral or a data- name; 
dl ♦ op2 if op2 is an integral literal 



Figure 53 indicates the action of the compiler when handling 
intermediate results. 
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Figure 53. Compiler Action on Intermediate Results 



APPENDIX B: SMIPLE PROGRAMS 



The three programs m this appendix illustrate several methods of 
accessing mass storage files. The three programs are: 

1. CREATION OF A DIRECT FILE 
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CREATION OF A DIRECT FILE 



This program creates a file with direct organization through use of 
an ACTUAL KEY — using actual track addressing. The ACTUAL KEY has two 
components : 

1. A track identifier, which is the actual track address, calculated 
through a simple remainder randomizing technique. A field from the 
input record (CD-ITEM-CODE) is converted to a track address 
(TRACKl) . CD-ITEM-CODE is divided by 19; the remainder is placed 
in TRACKl. This gives a valid track address ranging in value from 
to 18. The program assumes that the file must begin on cylinder 
102; therefore, a displacement value of 1020 is added to assure 
that the CC field will contain the value of decimal 102. 

2. A unique record identifier, in this case TRACK- NAME, that contains 
the CD-ITEM-NAME of the input record. 

The UPDATING program in the introduction updates the file that this 
program creates. 



IDENTIFICATION DIVISION. 

PROGRAM- ID. CREATEDF. 

REMARKS. ILLUSTRATE CREATION OF A DIRECT FILE. THE FILE MAY BE 

USED AS THE MASTER FILE FOR THE SAMPLE PROGRAM ILLUSTRATED 

IN THE INTRODUCTION TO THIS MANUAL. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE- COMPUTER. IBM-360-F50. 
OBJECT- COMPUTER. IBM-360-F50. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT DA-FILE ASSIGN TO SYS 01 5-DA-2311-A- MASTER 
ACCESS IS RANDOM 
ACTUAL KEY IS FILEKEY. 

SELECT CARD-FILE ASSIGN TO SYS007-UR-2540R-S. 
DATA DIVISION. 
FILE SECTION. 
FD DA-FILE 

DATA RECORD IS DISK 

LABEL RECORDS ARE STANDARD. 
01 DISK. 

02 DISK-ITEM-CODE PICTURE X(3). 

02 DISK- ITEM- NAME PICTURE X (29) . 

02 DISK-STOCK-ON- HAND PICTURE S9(6) USAGE COMP SYNC. 

02 DISK-UNIT-PRICE PICTURE S999V99 USAGE COMP SYNC. 

02 DISK-STOCK-VALUE PICTURE S9(9)V99 USAGE COMP SYNC. 

02 DISK-ORDER-POINT PICTURE S9(3) USAGE COMP SYNC. 
FD CARD-FILE 

LABEL RECORDS ARE OMITTED 

DATA RECORD IS CARDS. 
01 CARDS. 

02 CD-ITEM-CODE PICTURE X (3). 

02 CD-ITEM-NAME PICTURE X(29). 

02 CD-STOCK-ON-HAND PICTURE S9(6). 

02 CD-UNIT-PRICE PICTURE S999V99. 

02 CD-STOCK-VALUE PICTURE S9(9)V99. 

02 CD-CRDER-POINT PICTURE S9(3). 

02 FILLER PICTURE X(23). 
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WORKING- STORAGE SECTION. 

77 SAVE PICTURE S9(5) USAGE COMP SYNC. 

77 QUOTIENT PICTURE S9(4) USAGE COMP SYNC. 

01 TRACKl PICTURE 9999. 

01 TRACK2 REDEFINES TRACKl. 

02 CYL PICTURE 999. 

02 HEAD PICTURE 9. 

01 KEY-1. 

02 M PICTURE S999 COMP SYNC VALUE ZEROES. 

02 BB PICTURE S9 COMP SYNC VALUE ZERO. 

02 CC PICTURE S999 COMP SYNC. 

02 HH PICTURE S999 COMP SYNC. 

02 R PICTURE X VALUE LOW- VALUE. 

02 TRACK-NAME PICTURE X(29). 

01 THE-KEY REDEFINES KEY-1. 

02 FILLER PICTURE X. 

02 FILEKEY PICTURE X(37). 

PROCEDURE DIVISION. 
BEGIN. 

OPEN INPUT CARD-FILE. 

OPEN OUTPUT DA-FILE. 
PARA-1. 

READ CARD-FILE AT END GO TO END- JOB. 

MOVE CD-ITEM-CODE TO SAVE. 

DIVIDE 19 INTO SAVE GIVING QUOTIENT 
REMAINDER TRACKl. 

ADD 1020 TO TRACKl. 

MOVE CD-ITEM-NAME TO TRACK-NAME. 

MOVE CYL TO CC . 

MOVE HEAD TO HH. 

MOVE CD-ITEM-CODE TO DISK-ITEM-CODE. 

MOVE CD- ITEM-NAME TO DISK-ITEM- NAME. 

MOVE CD- STOCK- ON-HAND TO DISK- STOCK-ON-HAND. 

MOVE CD-UNIT-PRICE TO DISK-UNIT-PRICE. 

MOVE CD-STOCK- VALUE TO DISK-STOCK- VALUE. 

MOVE CD-ORDER-POINT TO DISK-ORDER- POINT. 
WR. 

WRITE DISK INVALID KEY GO TO ERROR- ROUTINE. 

GO TO PARA-1. 
END- JOB. 

CLOSE CARD-FILE DA-FILE. 

DISPLAY "END OF JOB". 

STOP RUN. 
ERROR- ROUTINE. 

DISPLAY "UNABLE TO WRITE RECORD". 

DISPLAY TRACK- NAME. 

GO TO PARA-1. 
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This program creates an indexed file. These records are presented in 
ascending sequence by RECORD KEY. The APPLY clause builds the master 
index. 

IDENTIFICATION DIVISION. 

PROGRAM- ID. CREATEIS. 

REMARKS. ILLUSTRATE CREATION OF INDEXED SEQUENTIAL FILE. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. IBM-360-F50. 

OBJECT- COMPUTER. IBM-360-F50. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT IS-FILE ASSIGN TO SYS015-DA-2311-I-MASTER 
ACCESS IS SEQUENTIAL 
RECORD KEY IS REC-ID. 

SELECT CARD-FILE ASSIGN TO SYS007-UR-2540R-S 
RESERVE 1 ALTERNATE AREA. 
I-0-CONTROL. APPLY MASTER-INDEX TO 2311 ON IS-FILE. 
DATA DIVISION. 
FILE SECTION. 
FD IS-FILE BLOCK CONTAINS 5 RECORDS 

RECORDING MODE IS F 

LABEL RECORDS ARE STANDARD. 
01 DISK. 

02 DELETE-CODE PICTURE X. 

02 REC-ID PICTURE 9(10). 

02 DISK-FLDl PICTURE X(10) . 

02 DISK-NAME PICTURE X(20). 

02 DISK-BAL PICTURE 99999V99. 

02 FILLER PICTURE X(52). 

FD CARD-FILE RECORDING MODE IS F 

LABEL RECORDS ARE OMITTED. 
01 CARDS. 

02 KEY-ID PICTURE 9(10). 

02 CD-NAME PICTURE X(20). 

02 CD-BAL PICTURE 99999V99- 

02 FILLER PICTURE X(tt3). 

PROCEDURE DIVISION. 
BEGIN. 

OPEN INPUT CARD- FILE. 

OPEN OUTPUT IS-FILE. 
PARA-1. 

READ CARD- FILE AT END GO TO END- JOB. 

MOVE LOW- VALUE TO DELETE-CODE. 

MOVE KEY- ID TO REC-ID. 

MOVE CD-NAME TO DISK-NAME. 

MOVE CD-BAL TO DISK-BAL. 

WRITE DISK INVALID KEY GO TO ERR. 

GO TO PARA-1. 
ERR. 

DISPLAY "DUPLICATE OR SEQ-ERR" UPON CONSOLE. 

DISPLAY KEY- ID UPON CONSOLE. 

GO TO PARA-1. 
END- JOB. 

CLOSE CARD-FILE IS-FILE. 

DISPLAY "END OF JOB" UPON CONSOLE. 

STOP RUN. 
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This program randomly updates an existing indexed file. The READ 
IS-FILE statement causes a search of indexes for an equal compare 
between the NOMINAL KEY obtained from the input record and the RECORD 
KEY of the I-O file. If an equal compare occurs, the record is updated, 
and the details of this update are printed. If a matching record is not 
found, the invalid key branch is taken. 

IDENTIFICATION DIVISION. 

PROGRAM- ID. RANDOMIS. 

REMARKS. ILLUSTRATE RANDOM RETRIEVAL FROM IS-FILE. 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE- COMPUTER. IBM-360-F50. 

OBJECT- COMPUTER. IBM-360-F50. 

INPUT-OUTPUT SECTION. 

FILE- CONTROL. 

SELECT IS-FILE ASSIGN TO SYS015-DA-2311-I-MASTER 
ACCESS IS RANDOM 
NOMINAL KEY IS KEY-ID 
RECORD KEY IS REC-ID. 

SELECT CARD-FILE ASSIGN TO SYS007-UR-2540R-S 
RESERVE 1 ALTERNATE AREA. 

SELECT PRINT-FILE ASSIGN TO SYS008-UT-2U00-S-PROUT 
RESERVE NO ALTERNATE AREAS. 
I-0-CONTROL. 

APPLY MASTER-INDEX TO 2311 ON IS-FILE. 

RERUN ON SYS002-UT-2400-S-CKPT EVERY 10000 RECORDS 
OF IS-FILE. 
DATA DIVISION. 
FILE SECTION. 
FD IS-FILE 

BLOCK CONTAINS 5 RECORDS 

RECORD CONTAINS 100 CHARACTERS 

LABEL RECORDS ARE STANDARD 

RECORDING MODE IS F 

DATA RECORD IS DISK. 
01 DISK. 

02 DELETE-CODE PICTURE X. 

02 REC-ID PICTURE 9(10). 

02 DISK-FLDl PICTURE X(1C). 

02 DISK-NAME PICTURE X(20). 

02 DISK-BAL PICTURE 99999V99. 

02 FILLER PICTURE X(52). 

FD CARD-FILE 

RECORDING MODE IS F 

LABEL RECORDS ARE OMITTED 

DATA RECORD IS CARDS. 
01 CARDS. 

02 KEY-IDA PICTURE 9(10). 

02 CD-NAME PICTURE X(20). 

02 CD-AMT PICTURE 99999V99. 

02 FILLER PICTURE X(43). 

FD PRINT-FILE 

RECORDING MODE IS F 

LABEL RECORDS ARE STANDARD 

DATA RECORD IS PRINTER. 
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01 PRINTER. 

02 FORMSC PICTURE X. 

02 PRINT-ID PICTURE X(10). 

02 FILLER PICTURE X(10) . 

02 PRINT-NAME PICTURE X(20). 

02 FILLER PICTURE X(10). 

02 PRINT-BAL PICTURE $ZZZ, 999. 99-. 

02 FILLER PICTURE X(10). 

02 PRINT- AMT PICTURE $2ZZ, ZZZ. 99-. 

02 FILLER PICTURE XdO). 

02 PRINT-NEW- BAL PICTURE $ZZZ, ZZZ. 99-, 
WORKING- STORAGE SECTION. 

77 KEY-ID PICTURE 9(10). 

PROCEDURE DIVISION. 
BEGIN. 

OPEN INPUT CARD-FILE. 

OPEN OUTPUT PRINT-FILE. 

OPEN I-O IS-FILE. 
PARA-1. 

MOVE SPACES TO PRINTER. 

READ CARD-FILE AT END GO TO END- JOB. 

MOVE KEY- IDA TO KEY- ID. 

READ IS-FILE INVALID KEY GO TO NO- RECORD. 

MOVE REC-ID TO PRINT- ID. 

MOVE DISK-NAME TO PRINT-NAME. 

MOVE DISK-BAL TO PRINT-BAL. 

MOVE CD- AMT TO PRINT- AMT. 

ADD CD- AMT TO DISK-BAL. 

MOVE DISK-BAL TO PRINT-NEW-BAL. 

REWRITE DISK INVALID KEY GOTO NO- RECORD. 

WRITE PRINTER AFTER POSITIONING 2 LINES. 

GO TO PARA-1. 
NO- RECORD. 

DISPLAY 'NO RECORD FOUND' UPON CONSOLE. 

DISPLAY KEY-ID UPON CONSOLE. 

GO TO PARA-1. 
END- JOB. 

CLOSE CARD-FILE PRINT-FILE IS-FILE. 

DISPLAY 'END OF JOB' UPON CONSOLE. 

STOP RUN. 
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APPENDIX C; AMERICAN NATIONAL STANDARD COBOL FORMAT SUMMARY AND RESERVED WORDS 



The Formats and Reserved Words in this appendix have been printed in a specially reduced size v/ith pages numbered in 
sequence to make up a pocket-sized reference booklet for use while coding IBM American National Standard COBOL 
programs. Although most readers may prefer to retain this reference material within the manual, the booklet can be 
prepared as follows: 

• Cut along trim lines . 

• Place sheets so that page numbers at lower right-hand corner are in ascending order in odd-number progression 
(i.e., 1, 3, 5, etc.); lower left-hand page numbers will then be in descending order in even-number progression 
(i.e., 16, 11, 12, etc.) . 



Fold trimmed sheets after collating. 
Staple along fold if desired. 
Punch for six-hole binder. 
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Format Summary and 

Reserved Words 



The general format of a COBOL program is illustrated 
in these format smnmaries. Included within the general for- 
mat is the specific format for each valid COBOL statement. 
All clauses are shown as though they were required by the 
COBOL source program, although within a given context 
many are optional. Repetition of clauses has not been indi- 
cated. Several formats are included under special headings, 
which are different from, or additions to, the general format 
Under these special headings are included formats peculiar 
to the following COBOL features: Sort, Report Writer, Table 
Handling, Segmentation, Source Program Library Facility, 



'^sm '^-i^tiHii,- a9<i ^teAe^'Oafsawf ■ Each of these features 
is explained within a special chapter of this publication — 
IBM DOS Full American National Standard COBOL, Order 
No. GC28-6394-4. 
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IDENTIFICATION DIVISION - BASIC FORMATS 
qPENTIFICATIOX DIVISION .^ 



PROGRAM-ID . program-name. 
AUTHOR, [comment-entry'i . . . 
INSTALLATION , [comment-entry} . . 
PATE-WRITTEN , [comment-entry} . . 
DATE-COMPILED , [comment-entry} 
SECURITY , [comment-entry'i . . . 
REMARKS , [comment-entry] . . . 



ENVIRONMENT DIVISION - BASIC FORMATS 
ENVIRONMENT DIVISION . 
CONFIGURATION SECTION . 

SOURCE-COMPUTER , computer-name. 

r WORDS -1 

OBJECT-COMPUTER computer-name [ MEMORY SIZE integer \ CHARACTERS )■ ] 

I MODULES J 

r SEGMENT-LIMIT IS priority-number]. 

SPECIAL-NAMES . lfuru:tion-ruime-l IS mnemonic-name] . . . 

[function-name-2 [IS mnemonic-name] 

fON STATUS IS condition-name-1 [OFF STATUS IS condttion-name-2]\ 
; OFF STATUS IS condition-name-2 [ON STATUS IS condition-name-1] J ^ ' 

[ CURRENCY SIGN IS irtera/] 

[ DECIMAL-POINT IS COMMA] . 

INPUT-OUTPUT SECTION . 
FILE-CONTROL . 

{ SELECT [ OPTIONAL! file-tume 

ASSIGN TO [integer] system-name-1 [system-ruime-2] . . . 

[FOR MULTIPLE \^j\ ] 



[area 1 



S^SERVE jl^^^J ALTERNATE |^^j,^^,j 

( FILE-LIMIT IS ) (dafa-name-l\ 
1 FILE-LIMITS AREf Uiteral-1 f 



\data-name-2\ 
]literal-2 j 



\data-name-3\ _,,,_,, \data-name-4\ , 
I- llUeral-3 \ liiSy ]literal-4 f J • ' 

ACCESS MODEIs{ig^:ML| 

PROCESSING MODE IS SEOUENTTAL 
'ACTUAL KEY IS data-name 
HOMtiv'Al KEif IS tbita-mraa 
memo KEY lS'dal0^ame ' . 

I-O-CONTROL . 

RERUN ON system-name EVERY integer RECORDS OF file-name 



SAME 



^^PP AREA FOR file-name-1 {file-name-2} . 



MULTIPLE FILE TAPE CONTAINS file-name-1 [ POSITION inleger-1] 
[file-name-2 [ POSITION inieRer-2]] . . . 



START file-name [KEY IS 



READ Statement 
Format 1 

READ file-name [NEXT] RECORD [ INTO identifier] 

[AT END impeTative-statement] 
Format 2 

HEAD file-name RECORD [INTO identifier] 

[ INVALID KEY imperative-statement] 

REWRITE Statement 

REWRITE record-name [FROM identifier] 
[INVALID KEY imperative-statement] 

START Statement 

( EQUAL TO 1 
GREATER THAN I 
NOT LESS THAN 
NOT< J 

[INVALID KEY imperative-statement] 
USE Sentence 

USE AFTER STANDARD J errq™'"'^ ! PROCEDURE 

{file-name-1 [file-name-2] . 
INPUT 
OUTPUT 
LO 
EXTEND 

WRITE Statement 

WRITE record-name [ FROM identifier] 
[ INVALID KEY imperative-statement] 



Environment Division — Input-Output Section 
FILE-CONTROL Entry 

FILE-CONTROL . 

[ SELECT file-name 

ASSIGN TO system-name-1 [sysiem-name-2] . . . }. ... 
I-O-CONTROL Entry 
I-O-CONTROL . 

fSORT 1 

SAME J SORT-MERGE > AREA FOR file-name-1 [file-name-2] . 
1 RECORD J 

Data Division — Merge File Description Entry 

SD merge-file-name 

RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS 

[RECORD IS 7 
DATA j RECORD S ARE! '^'"-"'""^-l [data-name-2 . . .] 

SORT-OPTION IS data-name-3. 
Procedure Division — Merge Statement 
MERGE /ife-name-i 
ON ] DESCENDING f ^^^ data-name-1 [data-name-2] . . . 

r_,, [ ASCENDING 1 „_„ , „ . j„. ^i ^ 

C^^ I DESCENDIN GI data-name-3 [data-name-4] ...]... 

USING fiie-name-2 fUe-nameS [iile-name-4] . . . 

( GIVING file-nameS 

[ OUTPUT PROCEDURE IS section-name-1 [ THRU section-name-2 



19 
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Environment Division — File-Conirol Entry 

Format 1 — Sequential VSAM Files 

FILE-CONTROL . 

{SELECI r OPTIONAT- l fUe-name 

ASSTON TO system-name-1 [system^nQme~2'\ . . . 

l^SEME integer [^^g]] 

r ORGANIZATION IS SEOUENTIAL I 
[ ACCESS MODE IS SEOUENTIAL I 
[PASSWORD IS data-name-1] 
[FILE STATUS IS clata-name-Z\ . } . . . 

Format 2 - Indexed VSAM Files 

FILE-CONTROL . 

{SELECT ^-name 

ASSIGN TO system^name-1 lsystem-name-2^ . . . 

[RESERVE»*«ger[^^]] 

ORGANIZATION IS INDEXED 

[SEQUENTm. ] 
[ACCESS MODE IS 4 RANDOM V ] 

[ dynamic J 

RECORD KEY IS data-name-3 
[PASSWORD IS data-name-l] 
[FILE ST.ATUS IS data-name-2]. } . . . 

Environment Division — l-O-Control Entry 
I-O-CONTROL. 

[ RERUN ON sustem-name EVERY integer RECORDS 

OF iSe-name-U ■ ■ ■ 
[SAME [RECORD] AREA 

FOR /ite-mime-2 [file-iuane-3;j ...]... . 

Data Division 

LABEL RECORDS Clause 



, ,„_, [ RECORD IS 1 (STANDARD1 
U^Mi ISECORDS ARE) { OMITTED J 

Note: Other Data Division clauses have the sa 
have for other files. - 



Procedure Division 

CLOSE Statement 

CLOSE Oe-name-l [WITH LOCK ] 

{fie-name-2 [WITH LOCK ]] . . . 
DELETE Statement 

DELETE ffle-name RECORD 

[ INVALID KEY imperofioe-rfatement] 
OPEN Statement 

{ INPUT fUe-name-l ifile-name-2} 

Omim" fU-aame-l [/iJe-nome-2] 

to fOe-name-l lfile-name-2] 

EXTEND fOe-nawe-l ifile-name-Z] 

18 



syntax for VSAM files that they 



AI'Pl r VVRin:-VKmi-y tW IHe-rume-iJ tlH«HM>ijc-31 ... 

AI'Pl.Y <:YLOVEBFf.OW OV iiiteetT tTIACKS ON fifeMMn^i t^at4>«»>»2J;i^V "/-^ 

APH.V t:OtU-.-T\D>:X l O dtita-tiamc ON fit-tiam&J ffit^mmuf-S} . .. . ' .'■•[ ^ 

SoTf. Komiiit 2 <i[ thi- RKliVN' Claaw (for Sort Ttlis) is imiwlni with VvaiOitat &6 
Sort feature. 



DATA DIVISION - BASIC FORAiMS 

DATA DIVISION . 

FILE SECTION . 
FD file-name 

BLOCK CONTAINS [mteger-I TO] mteger-2 |!^^^^^*^| 

RECORD CONTAINS [integer-i TO] integcr-2 CHARACTERS 



r OMITTED 
]^ms AREi |r^,r,^ [^,^,3 



LABEL |^£2gg/^_^} J STANDARD 



.} 



MLmOF data-name-l IS {^^JT""^} lda,a-nan^-3 IS . . . {^^^^ ] 

DATA ] RECORDS AREf ^''^-"""'^-l [.data-name-2'] .... 

Note: The Format of the REPORT Oause is induded with Formats for the REPORT 
writer feature. 



, .- idata-name-l) 
*"*' 1 FILLER \ 

REDEFINES data-name-2 

BLANK WHEN ZERO 

[ JUSTIFIED ! 

l lUST ' ( tUl>HT 

[ PICTURE ! „ . , „^, 
SpjQ r IS character string 



[ SYNCHRONIZED ! F lEFT 1 

} SYNC f [ mSBr J 



INDEX 

DISPLAY 

[ COMPUTATIONAL ! 
I COMP f 

CAT " 



[ USAGE IS] 



»t:oMP-j ' i, > Kjijj.'. 

|<OMH41AT10NAIdi! y^Jil^iy 

t ^atsptAY-OT . ,,1' l^^ -;■■» 

88 condition-name J vALUE S^AReI '"^"^"^ [THRU fitenri-21 

[toemJ-S [THRU feteniJ-fl] .... 

66 data-name-l RENAMES data-name-2 [ THRU data-name-3] . 

Note: Formats of the OCCURS Clause are included with Foimab for the TABLE 
HANDUNG feature. 




TRIM 



HERE 



Appendix C: Format Siinimary and Reserved Words 343 



TRIM HERE 



WORKING-STORAGE SECTION . 
77 data-name-1 

REDEFINES data-name-2 



BLANK WHEN ZERO 
RIGHT 



g USTIFIED ) 
IJUST \ 



( PICTURE D 
JPIC \ 



IS character string 



f SYNCHROMZED I [ lEFT 1 
I SYNC ( [ right J 



f INDEX 
DISPLAY 

( COMPUTATIONAL ') 
' COMF J 

toMPUTAT3t<mAL-tf 




[USAGE IS] 



VALUE IS literal 
88 condition-name ] VALUES AREf ^'^^'"^'^ [ THRU literal-Z] 

[Uteral-3 [ THRU iileraZ-fl] .... 
68 do<a-name-I RENAMES dttta-name-2 [ THRU data-nameS] . 

Norre: Formats of the OCCURS Clause are included with Formats for the TABLE 

HANDUNG feature. 



^yNKACE SECTION . 
^te <to(t-n<mi«-I 

tvjiQ iifottftaime-ll 
^ 7 nUJEK f 
JtEPEFINjES 4gte-ngMg-3 
J 8LANK WHEN ZERO 



' i l^fc^^^^ l iS character string 
. f INDEX 



kiQMiWrATK)NAVrt t 

} CbMP-i "^l? 

{ COMPUTATlOif ~ 

} g^i?-4 







:#> jiitw»si^».nawe f ^^^ ^»%»*:tiip»g^»g#jf -•; -^ 



(xac) PRINT-SWITCH 

PROCEDURE 
(ca) PROCEDURES 

PROCEED 
(ca) PROCESS 

processing 
(m) program 
program-id 

(spn) QUEUE 
QUOTE 
QUOTES 

RANDOM 

RD 
HEAD 
(xac) READY 
(spn) RECEIVE 

RECORD 
(spn) RECORD-OVERFLOW 
(xa) RECORDING 

RECORDS 

REDEFINES 
(ca) REFERENCES 

REEL 
(ca) RELATIVE 

RELEASE 
(spn) RELOAD 

REMAINDER 

REMARKS 
(ca) REMOVAL 

RENAMES 
( spn ) REORG-CRITERIA 

REPLACING 

REPORT 

REPORTING 

REPORTS 
(spn) REREAD 

RERUN 

RESERVE 

RESET 

RETURN 
(spn) RETURN-CODE 

REVERSED 

REWIND 
(jta) REWRITE 

RF 

RH 

RIGHT 

ROUNDED 

RUN 



(ca) SA 



(spn) 

(spn) 

(xa) 

(spn) 



(xac) 
(xac) 
(xac) 

(xac) 

(xac) 

(xa) 

(spn) 

(xac) 

(xac) 

(xac) 



SAME 

SD 

SEARCH 

SECTION 

SECURITY 

SEEK 

SEGMENT 

SEGMENT-LIMIT 

SELECT 

SEND 

SENTENCE 

SEPARATE 

SEQUENTIAL 

SERVICE 

SET 

SIGN 

SIZE 

SKIPl 

SKIP2 

SKIP3 

SORT 

SORT-CORE-SIZE 

SORT-FILE-SIZE 

SORT-MERGE 

SORT-MESSAGE 

SORT-MODE-SIZE 

SORT-OPTION 

SORT-RETURN 

SOURCE 

SOURCE-COMPUTER 

SPACE 

SPACES 

SPECIAL-NAMES 

STANDARD 

START 

STATUS 





STOP 


(spn) 


STRING 


(spn) 


SUB-QUEUE-I 


(spn) 


SUB-QUEUE-2 


(spn) 


SUB-QUEUE-3 




SUBTRACT 




SUM 


(ca) 


SUPERVISOR 


Im) 


SUPPRESS 


(ca) 


SUSPEND 


(spn) 


SYMBOLIC 




SYNC 




SYNCHRONIZED 


(spn) 


SYSIN 


(sp) 


SYSIPT 


(sp) 


SYSLST 


(spn) 


SYSOUT 


(sp) 


SYSPCH 


(sp) 


SYSPUNCH 


(sp) 


SOI 


(sp) 


S02 


(sp) 


sns 


(sp) 


S04 


(sp) 


SOS 


(spn) 


TABLE 




TALLY 




TALLYING 




TAPE 


(ca) 


TERMINAL 




TERMINATE 


(spn) 


TEXT 




THAN 


(xac) 


THEN 




THROUGH 




THRU 


(spn) 


TIME 


(xac) 


TIME-OF-DAY 




TIMES 




TO 


(ca) 


TOP 


(spn) 


TOTALED 


(spn) 


TOTALING 


(xac) 


TRACE 


(spn) 


TRACK 


(lac) 


TRACK-AREA 


(spn) 


TRACK-LIMIT 


(xac) 


TRACKS 


(xa) 


TRAILING 


(xac) 


TRANSFORM 




TYPE 


(ca) 


UNEQUAL 




UNIT 


(spn] 


UNSTRING 




UNTIL 




UP 




UPON 


(ca) 


UPPER-BOUND 


(ca) 


UPPER-BOUNDS 


(sp) 


UPSI-0 


(sp) 


UPSI-1 


(sp) 


UPSI-2 


(sp) 


UPSI.3 


(sp) 


UPSI-4 


(sp) 


UPSI-5 


(sp) 


UPSI-6 


(sp) 


UPSI-7 




USAGE 




USE 




USING 




VALUE 




VALUES 




VARYING 




WHEN 


1 (xac 


WHEN-COMPILED 




WITH 




WORDS 




WORKING-STORAGE 




WRITE 


(xac 


WRITE-ONLY 


(xac 


WRITE-VERIFY 




ZERO 




ZEROES 




ZEROS 
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ca) 


DEBUG-SUB-1 




INITIATE 


ca) 


DEBUG-SUB-2 




INPUT 


ca) 


DEBUG-SUB-3 




INPUT-OUTPUT 


ca) 


DEBUGGING 


(xac) 


INSERT 




DECIMAL-POINT 


(ca) 


INSPECT 




DECLARATIVES 




INSTALLATION 


xa) 


DELETE 




INTO 


spn) 


DELIMITED 




INVALID 


spn) 


DELIMITER 
DEPENDING 




IS 


spn) 


DEPTH 




JUST 




DESCENDING 




JUSTIFIED 


spn) 


DESTINATION 








DETAIL 




KEY 


ca) 


DISABLE 




LABEL 


spn) 


DISP 


( -jpn ) 


LABEL-RETURN 




DISPLAY 




LAST 


xac) 


DISPLAY-ST 




LEADING 


ca) 


DISPLAY-n 


(spn) 


LEAVE 




DIVIDE 




LEFT 




DIVISION 


( spn) 


LENGTH 




DOWN 




LESS 


ca) 


DUPLICATES 


(ca! 


LIBRARY 


xa) 


DYNAMIC 




LIMIT 
LIMITS 


spn) 


EGI 


(ca) 


LINAGE 


xac) 


EJECT 


(ca) 


LINAGE-COUNTER 




ELSE 




LINE 


spn) 


EMI 




LINE-COUNTER 


ca) 


ENABLE 




LINES 




END 


(xa) 


LINKAGE 


xa) 


END-OF-PAGE 




LOCK 




ENDING 




LOW-\-ALUE 




ENTER 




LO\V-\'ALUES 


xac) 


ENTRY 


1 






ENVIRONMENT 


(xac) 


MASTER-INDEX 


xa) 


EOF 




MEMORY 




EQUAL 


1 (xa) 


MERGE 


ca) 


EQUALS 


1 spn ) 


MESSAGE 




ERROR 




MODE 


spn) 


ESI 




MODULES 




EVERY 


(xac) 


MORE-LABELS 




EXAMINE 




MOVE 


ca) 


EXCEEDS 




MULTIPLE 


xa) 
xac) 


EXCEPTION 
EXHIBIT 




MULTIPLY 




EXIT 


(xac) 


NAMED 


xa) 


EXTEND 




NEGATIVE 


xac) 


EXTENDED-SEARCH 




NEXT 
NO 




FD 


Ixac) 


NOMINAL 




FILE 




NOT 




FILE-CONTROL 




NOTE 




FILE-LIMIT 


(xac) 


NSTD-REELS 




FILE-LIMITS 




NUMBER 




FILLER 




NUMERIC 




FINAL 


lea) 


NUMERIC-EDITED 




FIRST 








FOOTING 




OBIECT-COMPUTER 




FOR 


(ca) 


OBJECT-PROGRAM 




FROM 




OCCURS 
OF 




GENERATE 




OFF 




GI\TNG 




OMITTED 




GO 




ON 


xac) 


GOBACK 




OPEN 




GREATER 




OPTIONAL 




GROUP 




OR 






(xa) 


ORGANIZATION 




HEADING 


(xac) 


OTHER\^TSE 




HIGn-\-ALUE 




Ol-TPUT 




HIGH-VALUES 


(spn) 


O^'ERFLOW 


ca) 


HOLD 




PAGE 




I-O 




PAGE-COUNTER 




I-0-CONTROL 


1 xac) 


PASSWORD 


xac! 


ID 




PERFORM 




IDENTIFICATION 




PF 




It 




PH 




IN 




PIC 




INDEX 




PICTURE 


ca) 


INDEX-n 




PLUS 




INDEXED 


( spn ) 


POINTER 




INDICATE 




POSITION 


(ca) 


INITIAL 


(xac) 


POSITIONING 




IMTIALIZV: 




POSITIVE 



PROCEDURE DIVISION - BASIC FORMATS 
( PROCEUl. R1-: DIVISION. 

ACCi:i''r St..tcmrnt 

ACCKl'T hinilif.rr I'l-'KOM j^^g^g; -J 



ADO St..(i .iKii( 
Format 1 



\„l,ntitir,-ll iclrnlifir 
lliln,ll-l I, nirn:i--2 



ADD ':;;:.:::r,' 'i 1 1;:.::::"^" i . . .m «;--.///;. .-m [ HouNnr.p ] 

[Uln,lif„r-„ r HOlNDF.D H . . . [ON m^L\\VMmm,p<mtivr-.tnU^mi■nl] 



\kln,liU, ,-l\ \Ul. ni.f,rr-2\ \ kh nlifi, .-sl 
\litrml-l ) \hlr,al-2 \ ytiti;al-3 J ' 



(^niNC hhnliHrr-m [ROUNmO] [OX SlZi: i:iUU)K ini,n;uliu-stah;mnt] 



j COHHKM-ONIMNC , ,^,^,,,,^.^. ,._^ ,,) /cV,.,,. ,-_' [ ROL Nl.ED I 



[ON SIZK laUiOH iiuii(i;ilin-^ti:lniunt] 



Al.l i:H Sl;itiiiniit 

■ ALTER iinu;;iiuv-iH 
[lunrrd; 



-; TO [ I'HOCFKD TOI pan ciUu,-mwi. 
uwir.3 TO [PUOCKKD TO] pwrcilm,- 



i r il.i Jii.'t'«f:i tt'-s'f-vc. i3i,ry3^* i \j,j- m ht-jrr .1 



Cl.OSK St;ilcnn-nt 



n osi- H, „«mr ; i^^^^ rwiTH '^' kIMndj 



[file 



rRELL] |NO RK'AINDI 

'" - |_ UN1t J t""" (LOCK ( '' 



COMPITK Statement 

COMPl -ii: kh nlif.ir-1 [ ROLNDED I = ■ kl,n!i^u-2 



rilhmclk-- 
I, HUti, I- 
[_lilcni-I 

[ON SiZi: KHROR iii,rrmlivr--latt'm(nt] 



Di:C:i.ARATI\'E Scetion 

PROCEDURE PniSION . 

DECLARAT1\ES . 

{scctimi-twmc SECTION. USE uiHrmc 

ENDDi:c:i.AH.vnvi-:s . 

niSI'l AV Sl;item,-iit 



UchnliH.,-n khnllfi, 
llilcml-l \ l,lvi„l--2 
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Un'IDl£ StaU-mcnt 

FoBMAT 1 



DIVIDI:: \'ll,["lf"''\ INTO i(ln,lificr-2 T ROL NUKD I 
[0\ .SRI-: EKROH imi>eriiln,-ilaUment] 



r RENfAlNDKU i,lrnlifirr-l'i [ON SlZi; ERROR imiHTiiliir-,l,ilemtnf] 



ENI'KR Stiilcment 

KNTER lanfzutt^e-naiiir [rouline-namc] . 



KXAMIMi StnteiiK'iit 

FtlRMAT 1 

r LVni.i-IRST I 
EXAMINE klrnlificr TAI-l.YlNC J ALL 1 'i/t ra/-i 



j l.EADlNC i 
[ REI'LACINC BY lilcral-2] 



T all 

J I.EAC 



"1 FIRST f 

[ until FIRST J 



lileml-I BY I ilcial-2 



I'AAMINE idcntifKr REl'LACLNG 



l',XIT Stati'inent 
jmrapTaph-namc. EXIT 



CO TO Statement 
FoaMAT 1 

CO TO procfthirt'-titimc-l 

Format 2 

GO TO procnlurc-iuimc-l [procirlurc-nanic-2] . . . DEPENDINC ON ideiitifie 

FuBMAT 3 

GOTO. 



IF Statement 
IF condition^ 



MO\'l-: Stutement 
Format 1 



[( NEXT SENTENCE ) 

' I'ilalcmcnl-l j |ELSE 



( NEXT SENTENCE ) 
]\ta{niwnt-2 ] 



MOVE |';f,™af''''^ I ly icl>-nliHiT-2 [iclc„tifi(T-3] . . . 

Fobmat 2 

.,.,■,,. ( CORKESroXDINC ) ., ,,. , ^„ . , ,.r „ 
MOVE j coRR 1 i'''^i'*'l«''-l XQ iilintificr-2 



IBM AMERICAN NATIONAL STANDARD 
COBOL RESERVED WORDS 

No word in the following list should appear as a programmer defined name, 
rhe keys that appear before some of the words, and their meanings, are: 

( xa ) before a word means that the word is an IBM extension to American 
National Standiud COBOL. 

(xac) before a word means that the word is an IBM extension to both 
American National Standard COBOL and CODASYL COBOL. 

(ca) before a word means that the word is a CODASYL COBOL re- 
served word not incorporated in American National Standard 
COBOL or in IBM American National Standard COBOL. 

( sp ) before a word means that the word is an IBM function-name estab- 
lished in support of the SPECIAL-NAMES function. 

(spn) before a word means that the word is used by an IBM American 
National Standard COBOL compiler, but not this compiler. 

(asn) before a word means that the word is defined by American National 
Standard COBOL, but is not used by this compiler. 





ACCEPT 




ACCESS 




ACTUAL 




ADD 


(a.ii) 


ADDRESS 




ADVANCING 




AFTER 




ALL 




ALPHABETIC 


(ca) 


ALPHANUMERIC 


(ca) 


ALPHANUMERIC-EDITED 




ALTER 




ALTERNATE 




AND 


(xa) 


APPLY 




ARE 




AREA 




AREAS 




ASCENDING 




ASSIGN 




AT 




AUTHOR 


(xae) 


BASIS 




BEFORE 




BEGINNING 




BLANK 




BLOCK 


(ca) 


BOTTOM 




BY 


(xa) 


CALL 


(spn) 


CANCEL 


(spn) 


CBL 


(spn) 


CD 




CF 




CH 


(xac) 


CHANGED 


(xa) 


CHARACTER 




CHARACTERS 


(a.sTi) 


CLOCK-UNITS 




CLOSE 


(a.>in) 


COBOL 




CODE 




COLUMN 


(xac) 


COM-REG 




COMMA 


(spn) 


COMMUNICATION 




COMP 



(xa) 


COMP-1 


(xa) 


COMP-2 


(xa) 


COMP-3 


(xa) 


COMP-4 




COMPUTATIONAL 


(xa) 


COMPUT.ATIONAL-I 


(xa) 


COMPUTATlONAL-2 


(xa) 


COMPUTATIONAL-! 


(xa) 


COMPUTATIONAL-4 




COMPUTE 




CONFIGURATION 


(.-•p) 


CONSOLE 




CONTAINS 




CONTROL 




CONTROLS 




COPY 


(xac) 


CORE-INDEX 




CORR 




CORRESPONDING 


(spn) 


COUNT 


(sp) 


CSP 




CURRENCY 


(xac) 


CURRENT-DATE 


(xac) 


CYL-INDEX 


(xac) 


CYL-OVERFLOW 


(.sp) 


COl 


(.sp) 


C02 


(s-p) 


C03 


(sp) 


C04 


(sp) 


COS 


(sp) 


C06 


(.■;p) 


COT 


(sp) 


C08 


(sp) 


C09 


(sp) 


CIO 


(sp) 


ClI 


(sp) 


C12 




D.ATA 


(spn) 


DATE 




D.ATE-COMPILED 




DATE-WRITTEN 


(spn) 


DAY 


(ca) 


DAY-OF-WEEK 




DE 


(xac) 


DEBUG 


(ca) 


DEBUG-CONTENTS 


(ca) 


DEBUG-ITEM 


(ca) 


DEBUC-LINE 


(ca) 


DEBUG-NAME 
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Procedure Division Debugging Forn^ats 
EXHIBIT Statement 

EXHIBIT \ CHANCED NAMED I jl'l^"^?-^, 
L CHANGED J 



1 r identijieT-2 ~\ 

■UteTol-l ) \nonnumeric-literal-2 \ ' 



ON (Count-conditional) Statement 

Format 1 

ON integer-1 [AND EVERY integer-2'i [ UNTIL integer-S] 

(imperatiDe-statement . . .1 ( ELSE 1 (statement ... I 

jNEXT SENTENCE J ( OTHERWISE ( JNEXT SENTENCE f 

Format 2 ( Version 3 ) 



ON {iri^jfMD EVERY fS^] 

. Unteger-S 1 , (imperative-statement) 

LUNUL, |,,jgnjj^er-3J J 1 NEXT SENTENCE ( 

[ ELSE 1 (statement ... \ 

l OTHERWISE t I NEXT SENTENCE ! 



MULTIPLY Statement 
Format 1 

MULTIPLY ^uumu'^\ ^ identifier-2 F ROUNDED I 
[O.N SIZE ERROR imperative-statement'] 
Format 2 

MULIIZLY g:^ff'-^ j BY ^^^;-'} GIV^ i^tif^er^ 

[ ROUNDED ] [ON SIZE ERROR imperative-statement] 

NOTE Statement 

NOTE character string 



OPEN Statement 

OPEN [ INPUT {file-name 



ind J 



}...] 



r REVERSED 

[with no rewind 

[ OUTPUT {file-name [WITH NO REWIND]} . . .] 
[LO {file-name} . . .] 



READY/RESET TRACE Statement 



j RESET f 'iSACE 



Compfie-Time Debugging Packet 
DEBUG Card 
DEBUG location 



EJECT Statement 



EJECT 



SKIPl, SK1P2, SKIPS Statements 

1 AreaB 

SKIFl 1 
SKIP2 '> 



sk!f5 J 



Data Division Sterling Formats 

Nonreport PICTURE Clause 

j FIgTURE j j5 gj(„,j o J33 8J3 |6[6]j ^^^^ g j,„,^;| ^ USAGE IS] DISPLAY-! 



PERFORM Statement 

FORM.IT 1 

PERFORM procedure-rmme-l [ THRU procedure-ruime-2] 
Format 2 

PERFORM procedure-name-1 [THRU procedure-name-2] jff™"^{"^ \ TIMES 

Format 3 

PERFORM procedure-name-1 [ THRU procedure-name-2] UNTIL condition-1 

Format 4 

PERFORM procedurc-name-1 [THRU procedure-name-2] 

, . , , ^ f index-name-2 ^ 

VARYING |'."'^:"'""^'M FROM i literal-2 



\identifier-l 



I identifier-2 



jS^r-Sf ^^^^^^ condition-1 



Undex-name-4\ 
\identifier-4 j 



ndex-name-S 
FROM <j /itera/-5 

identijier-5 



{St-ei UNTIL ™„</«ion-2 

. . _, r index-nameS\ 

[ AFTER \"ulex-name-7) frqm J ,i(g,„^g I by 

\,denhficr-7 i Lirf«"h7i«r-8 J ~ 

|'d^«^r-9| UVnLco»Ai;on-3]] 
READ Statement 

READ file-name RECORD [ INTO identifier] jir^vALlb KEY( ™P'^™'"^^-*'<'f«'"^"' 



Report PICrURE clause 

| PICTURE | jg [poumt-report-string] {pound-separator-string] delimiter 
lEi£ ) shilling-report-string [shilUng-separator-string] delimiter 

pence-report-string [pence-separator-string] [sign-string] 

[ USAGE IS] DISFLAY-ST 



SEKK Statement 

SEEK file-name RECORD 
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STOP Statement 

STOP fBi^l 
§3SP \lueral\ 



SET Statement 
Format 1 

SET ('"^^^""'^'"^"^ [inclex-name-2'] 
\identifier-l [identifier-2 ] , 

Format 2 

SET index-name-4 [index-names'] . . 



( index-name-^ ~1 



•1 TO J identiiier-3 \ 
•1 [fitera;-i J 



(UP BY I (irfen*iyier-41 
JDOWN BYl meral-2 \ 



SUBTRACT Statement 
Format 1 

\ideniifier-l] V identijier-Z 



SUBTRACT 



\litcriil-l \ \jiteral-2 
[identifier-n [ROUNDED]] 



. . FROM identifier-m [ROUNDED] 
[ON SIZE ERROR imperatice-xtatement] 



\identifier-l] 
}literal-l | 



ric/en(i/ier-2 I 
\_literal-2 J 



• Efi^M Uueral-m \ 



GIVING 



Format 2 

SUBTRACT 

identifier-n [ROUNDED] [ON SIZE ERROR imperative-statement] 
Format 3 

SUBTRACT I corr'^^''"'^"'''''^} '*«'•/'«'■-■' FROM identifieT-2 [ ROUNDED ] 
[ON SIZE ERROR imperative-statement] 




SEGMENTATION - BASIC FORMATS 

Environment Division Segmentation Formats 

SEGMENT-LIMIT Clause 
Object-Computer Paragraph 

SEGMENT-LIMIT IS prioritij-numher 

Procedure Division Segmentation Formats 

Priorit>' Numbers 

seciion-namc SECTION [priorittj-number]. 



L'SE St-ntcnce 
Format 1 
Option 1: 

USE j ^l^VB^ ! STANDARD [BEGINNING] PtlE" 
lAQM I I UNIT I 



LABEL PROCEDURE ON 



{file-name} . 
OUTPUT 
INPUT 
1-0 



Option 2: 

USE 



I BEFORE I 
j AFTER I 



[ reel I 
FILE 
unitJ 



LABEL PROCEDURE ON 



{file-name) , 
OUTPUT 
INPUT 



Format 2 

USE AFTER STANDARD ERROR PROCEDURE 




Note: Format 3 of the USE Sentence is included 
feature. 



Formats for the REPORT WRITER 



SOURCE PROGRAM LIBRARY FACILITY - BASIC FORMATS 

COPY Statement 

COPY Wnanj-mimet^ 



■ wnrd-2 1 
[ REPLACING wml-1 BY 4 liferal-1 } [iforrf-3 BY ■{ Ulern\-2 }]...]. 



f n-ord-4 
J IHcrnl-2 
L idcnfjfivi 
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Procedure Division Report Writer Formats 

GENERATE Statement 

GENERATE identifier 
INITIATE Statement 

INITIATE report-name-l [Teport-name~2] . . . 
TERMINATE Statement <_ 

TERMINATE report-name-l [report-name-Z] 
USE Sentence 

USE BEFORE REPORTING idenHfier-1. 



WRITE Statement 
Format 1 

WRITE record-name [ FROM identijier-l] [' a^fb^ I ADVANCING 

\ rdentijier-2 LINES^i firwr>^/\ir pir'E'i 

' integer LlSEi. -] [AT i |o^ ^^ ' ' f»lip«ftitfe«-sia<«B«rf] 
^mnemonic-name j '-^ — . 

Format 2 

■WWtBsecsrd-'wme f FROM iient»eT-n AFTER FOSITIONING ^^^'^\ LINES 



Format 3 

WRITE record-name [ FROM identifier-1] INVALID KEY imperative-statement 



TABLE HANDLING - BASIC FORMATS 

Data Division Table Handling Formats 

OCCURS aause 

Format 1 

OCCURS integer-2 TIMES 

r ( ASCENDING 1 „cv tc j < ■> rj^ m ^ 

[ 1 DESCENDIN G f data-name-2 [data-name-3} ...]... 

[ INDEXED BY index-ruime-1 [index-name-2] . . .] 

Format 2 

OCCURS integer-1 TO integer-2 TIMES [ DEPENDING ON data-name-U 

[ j DESCENDIN G t ^^^ '^ data-name-2 ldata-name-3] ...].. 
[ INDEXED BY index-name-I [index-name-2] . . .] 



USAGE Ckuse 

[USAGE IS] INDEX 



Procedure Division Table Handling Formats 
SEARCH Statement 



,.4 



SORT - BASIC FORMATS 

Environment Division Sort Formats 

FILE-CONTROL PARAGRAPH - SELECT SENTENCE 

SELECT Sentence (for GIVING option only) 

SELECT file-name 

ASSIGN TO [integer-J] system-name-1 [system-iutme-2'\ . . 

(REEL1 
OR sijstem-name-3 [FOR MULTIPLE t^j^,j^ ^ ] 



[ RESERVE jj,Q*^ 



ALTERNATE [^^^J ] 



SELECT Sentence (for Sort Work Files) 
SELECT sort-Ue-name 

ASSIGN TO [integer] system-name-1 \st!stem-name-2'\ . . . 

I-O CONTROL PARAGRAPH 
BEHUN Cfaase 

SAME RECORD/SORT AREA Clause 

SAME j sORT^"" ? ^^^■'' ^°^ fle-name 1 {fle-name-2) . . 



SEARCH identifier-1 [VARYING jj^j^/^"''} ] 

[AT END imperatioe-statement-11 

mmcondition-1 |S "^NTS i 

rii7FTi-»- J... -. Umperative-statement-3') - 
[WHEN cond,t,on-2 j^^g^T SENTENCE f ^ • 



FOBMAT 2 

SEARCH ALL identifier-! [AT END impeTatwe'Statement-l] 
ymE>, condition-l J j^exT SENTENCE } 



Data Division Sort Formats 

SORT-FILE DESCRIPTION 
SD sort-file^name 

MECOBDINC Mora: is aode 

DATA ] ig§iEs ^lREi data-name-1 [data-name.2J . . . 
RECORD CONT,AINS ^integer-1 TO] integer-2 CHARACTERS 

, *T,tj. (IgCOitD IS 1 f fiTAMDABD > 
LAJ^fa jgECOBES ABEt lOMnTED L 

SQBT-OPTTON IS data-naiae-3. ( DOS/VS COBOL only ) 
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Procedure Division Sort Formats 

RELEASE Statement 

RELEASE sort-record-name [ FROM identifier'i 



RETURN Statement 

RETURN soTt-iile-name RECORD [ INTO identifier-^ 
AT END imperative-statement 

SORT Statement 

SORT fUe-name-1 ON I^^^^g^I KEY {data-name-1} . . . 

rriM ( DESCENDING ] „„„ , , , „x i 

f°^ USCENDING I ^^^ {data-name-2} ...]... 

( INPUT PROCEDURE IS section-name-1 [THRU section-name-2]\ 
] USING /ife-ngme-2 j 

( OUTPUT PROCEDURE IS section-name-3 [THRU section-name-4'] 1 
) GIVING /ae-nameJ J 



REPORT WRITER - BASIC FORMATS 



Data Division — Report Writer Formats 

Notte; Formats which appear as Basic Formats 
Division are illustrated there. 



'ithin the general description of the Data 



FILE SECTION - REPORT Clause 

( REPORT IS ) _^ , T ^ r,i 

I REPORTS ARE( '^P"^-"""^-! [report-name-2] 



REPORT SECTION 
REPORT SECTION . 
RD report-name 

j^^ilSl CODE mnemonic-name 

I coNTRCT s'IreI I ^Wer-1 lidentifier-2] . . . 
] CONTROLS AREf | FINAL ideniifier-1 [identifier-2] 

p.^P [limit IS 1 ■ . ™ , ( LINE 1 
2^^ [limits ARE J '"'"S«r-J j g^g ^ 

[ HEADING integer-2] 
[FIRST DETAIL integer-3] 
[LAST DETAIL integer-4] 
[ FOOTING inteser-5] 



REPORT GROUP DESCRIPTION ENTRY 

Format 1 

01 [daia-name-1] 

f integer-1 
LINE NUMBER IS < 



f integer-1 T 

NEXT GROUP IS 4 PLUS integer-2 l 

LNEJCTPAGE J 



! REPORT HEADING ) 
RH } 

PAGE HEADING) 
PH I 

CONTROL HEADING] jiden(i/;er-n| 
CH I I FINAL I 

DETAIL ] 
DE I 

CONTROL FOOTING ] ^identifier-n} 
CT I ] FINAL J 

PAGE FOOTING ) 
FF f 

REPORT FOOTING ) 
RF ( 



USAGE Clause. 

Format 2 

nn [data-name-l'j 

LINE CIau.se - See Fonnat I 

USAGE Clause. 

FoR.MAT 3 

nn [data-name-1} 
BLANK WHEN ZERO Clause 
COLUMN NUMBER IS integer-l 
GROUP INDICATE 
JUSTIFIED Clause 
LINE Clause - See Format 1 
PICTURE Clause 



RESET ON \^"^'H 




Si^ {idi^r-3l IS^er^i ■ • ' f^^^"^" dain-name] 



VALUE IS literal-1 
USAGE Clause. 

Format 4 

01 data-name-1 

BLANK WHEN ZERO Clause 

COLUMN Clause - See Format 2 

GROUP Clau.se - See Format 2 

JUSTIFIED Clause 

LINE Clause — See Format 1 

NEXT GROUP Clause - See Foimat 1 

PICTURE Clause 

RESET Clause — See Format 2 



See Format 2 



r SOURCE Clau.* 
J, SUM Clause 
L VALUE Clause 

TYPE Clause - See Format 1 

USAGE Clause. 



10 






11 




TRIM 


MERE 






s 
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APPENDIX Di SUMMARY OF FILE- PROCESSING TECHNIQUES AND ?VPPLICft.BLE 
STATEMENTS AND CLAUSES 



This appendix stunmarizes the statements and clauses that may be 
specified for each file-processing technique. In addition, each 
file-name must be specified in a SELECT clause in the Environment 
Division and must be defined by an FD entry in the File Section of the 
Data Division. 
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STANDARD SEQUENTIAL FILES - Requiied and Optional Entries 



Device 
Type 



Required Entries 



Optional Entries 



mr» 



Tape 



Storage 



System-name 



SYSnnn-UR-xxxx-S [-name] 



SYSnnn-UR-xxxx-S [-name] 



SYSnnn-UR-xxxx-S [-name] 



SYSnnn-UT-xxxx-S [-name] 



SYSnnn-vJ V-xxxx-S [-name] 



LABEL 
RECORDS 



STANDARD 
OMITTED 
I data-name 



STANDARD^ 

data-name ( 



OPEN 



INPUT 

[REVERSED] 
[NO REWIND] 



OUTPUT 

[NO REWIND] 



[LOCK] 



[LOCK] 



[LOCK] 



[REEL] 

Flock "l 
[no rewind! 



[REEL] 

Flock "l 
[no rewindJ 



[UNIT] 
[LOCK] 



[UNIT] 
[LOCK] 



[UNIT] 
[LOCK] 



Access Verbs 



READ [INTO] 
AT END 



write' [FROM] 

'{r™}»™NC,HO,| 



write' [FROM] 

, ^BEFORE) ,, 

ftAFTERl^^^^^^^^H 



READ [INTO] 
AT END 



write' [FROM] 
, f BEFORE) 
[ AFTER }^V^^'^<=1 



READ [INTO] 
AT END 



WRITE' [FROM] 
, ^BEFORE) 
[{after I ADVANCING] 



write' [FROM] 
INVALID KEY 



READ [INTO] 

AT END 
WRITE^ [FROM] 

INVALID KEY 




Integer 
NO 



integeri 
NO 



integer/ 
NO f 



integeri 
NO 



1 integer/ 
I NO ( 



ACCESS 



SEQUENTIAL 



SEQUENTIAL 



SEQUENTIAL 



SEQUENTIAL 



SEQUENTIAL 



Other ENVIRONMENT 
DIVISION Qauses 



SAME (RECORD] AREA 
RERUN 



SAME [RECORD] AREA 
RERUN 



SAME (RECORD] AREA 
RERUN 



SAME [RECORD] AREA 

RERUN 

MULTIPLE FILE TAPE 



SAME [RECORD] AREA 
RERUN 



BLOCK 
CONTAINS^ 



ii-Hl 



K^ 



[n TO] m 






[n TO] m 










•M 



USE 



ERRORS 
REPORTING 



LABEL 
ERROR 



LABEL 
ERROR 
REPORTING 



AFTER LABEL 
ERROR 



AFTER LABEL 

ERROR 

REPORTING 



AFTER LABEL 
ERROR 



-"Not for U mode 



' STXTT Option must be ipcclfied on the CBL control card 



DIRECT FILES (mass storage devices only) - Required and Optional Entries 



Required Entries 



Optional Entries 



[SEQUENTIAL] 



KEY 



[ACTUAL] 



System-name 



SYSnnn-DA-xxxx-J > [-name] 



-{3' 



LABEL RECORDS 



/ STANDARD j. 
i data-name •' 



OPEN 



CLOSE 



[UNIT] 
[LOCK] 



m'Mm.', 



Access Verbs 






.a , l ? l.l •uMj : ^ ■' i|""fc ' |""%i»' 



READ [INTO] 
AT END 



Other ENVIRONMENT 
DIVISION Clauses 



SAME [RECORD] AREA 
RERUN 




AFTER LABEL 
ERROR 



SYSnnn-DA-xxxx-c > [-name] 



/STANDARD) 
Idata-name / 



[LOCK] 



SEEK 

READ [INTO] 
INVALID KEY 



[LOCK] 



SEEK 

write' [FROM] 
INVALID KEY 



[LOCK] 



SEEK 

READ [INTO] 

INVALID KEY 
WRITE^ [FROM] 

INVALID KEY 



:iXT@g)EJ>:§J 



; WKi'riE-vi^ii'y : : 



" EXrtNfeEp-SEARCS 
■ WRtti-VERIFY'" -"- 



SAME [RECORD] AREA 
RERUN 



1 rj T _^, 

u>: V. 



AFTER LABEL 
ERROR 



SYSnnn-DA-xxxx-< > [-name] 



■{> 



I STANDARD) 
Idata-name / 



[LOCK] 



SEEK 

READ [INTO] 
INVALID KEY 



BXTENCED-S^ARCa' 



SAME [RECORD] AREA 
RERUN 



[LOCK] 



SEEK 

WRITE^ [FROM] 
INVALID KEY 



Vfelft-VE^FY 



..; : l;■^^ 



AFTER LABEL 
ERROR 



ACTUAL 



"^-{wl 



SYSHnn-DA^xxxx-'i ? [-name] 



(STANDARD) 
Idata-name ; 



[LOCK] 



SEEK 

READ [INTO] 
INVALID KEY 



WRITE^ [FROMl 
INVAUDKEY 



REWRITE''* [FROM] 
INVALID KEY 



EXTENDED-SEARCH 



WRITE-VERIFY 



EXTENDED-SEAUCH 
WRITB-VERIFY 



SAME [RECORO] AREA 
FOiRUN 



Aim lA-mi 









^,g^:miim h l..^m^.::A::^.mf!S^i^..^ tJX',&^m^tM^^LJ^idMXi^u,t^&:^L^^^ 
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APPENDIX E: ASCII CONSIDERATIONS 



This compiler supports the American National Standard Code for 
Information Interchange (ASCII) . Thus the programmer can create and 
process tape files recorded in accordance with the following 
standards: 

• ASCII Standard Code X3. 4-1967 

• American National Standard X3. 27-1969, Magnetic Tape Labels for 
Information Interchange 

• American National Standard 9-track, 8 00 bpi, NRZI Magnetic Tape 
Standard X3. 22-1967 

ASCII encoded tape files, when read into the system, are 
automatically translated in the buffers into EBCDIC. Internal 
manipulation of data is performed exactly as if they were EBCDIC 
encoded files. For an output file, the system translates the EBCDIC 
characters into ASCII in the buffers before writing the file out on 
tape. Therefore there are special considerations concerning ASCII 
encoded files when they are processed in COBOL. The following 
paragraphs discuss these considerations. 



I — ENVIRONMENT DIVISION 



Environment Division clauses affected by the specification of ASCII 
files are the ASSIGN clause and the RERUN clause. 



ASSIGN Clause 



When ASCII files are to be processed, the system-name in the ASSIGN 
clause has the following format: 

SYSnnn-UT-device-C [-of f set] [-name] 

mm is a three-digit number between 000 and 221. This number 
represents the symbolic unit to which the file is assigned. 

UT for utility must be specified in the class field 

device must specify a magnetic tape device (2400) . 

C in the organization field specifies that an ASCII encoded 
sequential file is to be processed, or that an ASCII collated sort 
is to be performed. 

offset may be specified only for an ASCII file, and then only if a 
block prefix of length 01 through 99 exists. It is a 2-digit field, 
and may be specified as follows: 

01 through 99 for an input file 

04 for an output file (D-mode records only) 
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name is a one- to seven-character field specifying the external-name 
by which the file is known to the system. If specified, it is the 
name that appears in the file-name field of the VOL, DLBL, or TLBL 
job control statement. If this field is not specified, the symbolic 
unit (SYSnnn) is used as the external-name. This field must be 
specified if more than one file is assigned to the same symbolic 
unit. 



RERUN Clause 



The system-name in a RERUN clause must not specify an ASCII encoded 
file. 

ASCII encoded files containing checkpoint records cannot be 
processed. 



II ~ DATA DIVISION 



In the Data Division there are special considerations for ASCII 
files, both in the File Section and in Data Description Entries 



FILE SECTION 



In the File Section the BLOCK CONTAINS clause, the LABEL RECORDS 
clause and the RECORDING MODE clause are affected. There are also 
special considerations regarding the compiler default options for 
recording mode. 



BLOCK CONTAINS Clause 



For an ASCII file that contains a buffer offset field, the following 
considerations apply: 

• If the BLOCK CONTAINS clause with the RECORDS option is 
specified, or if the BLOCK CONTAINS clause is omitted, the 
compiler compensates for the buffer offset field. 

• If the BLOCK CONTAINS clause with the CHARACTERS option is 
specified, the programmer must include the buffer offset as part 
of the physical record. 



LABEL RECORDS Clause 

All three options of the clause (OMITTED/STANDARD/data-name) are 
allowed. However, if the programmer specifies the data-name option, 
he must make sure that data-name refers only to User standard 
labels. Nonstandard labels are not allowed for ASCII files. 
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Compiler Calculation of Recording Mode 



When the RECORDING MODE clause is not used to specify the mode of 
the records in an ASCII file, the COBOL compiler determines the mode 
by scanning each record description entry. The default option may 
be: 

F if all tne records are defined as being the same size. 

P if the records are defined as variable in size, or if the RECORD 
CONTAINS clause specifies variable size records. Internally D 
mode is the equivalent of V mode for EBCDIC encoded files. 



DATA DESCRIPTION ENTRIES 



For ASCII files the Data Description Entries affected are the 
PICTURE clause, the SIGN clause, and the USAGE clause. 



PICTURE Clause 



For ASCII files all five categories of data are valid. 





USAGE Clause 



For data items in ASCII files, only the DISPLAY option of the USAGE 
clause is valid. 



Ill ~ PROCEDURE DIVISION 



For ASCII files, there are special considerations in regard to Label 
Declaratives and relation conditions. 
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LABEL PROCEDURE Declarative 



Since the user may not speciiiy nonstandard labels for an A.SCII 
encoded file, the BEFORE option of the LABEL PROCEDURE Declarative 
is not allowed. 



Relation Conditions 



If the ASCII character strings to be compared contain mixed 
alphabetic/numeric characters and/or special characters, then the X 
TRANSFORM verb cari be used before the comparison is made to ensure a 
valid comparison. 

The following example illustrates a method of making the comparison ; 
(Figure 54 shows the necessary COBOL statements). 

Suppose that the COBOL programmer specifies that one alphanumeric 
data item (ASCII-1) from ASCII-FILE is to be compared with another 
such data item (ASCII-2) , and that the results of the comparison 
determine the path of program execution. Each data item may contai^: 
any valid COBOL character. 

When ASCII-RECORD is read into the buffer, the system changes each 
ASCII character into its EBCDIC equivalent. Therefore, before a 
valid ASCII comparison can be made, the relative position of each 
character in the ASCII collating sequence must be reestablished. 

In the Working- Storage Section, the VALUE of IDENT-EBCDIC is the 
ascending EBCDIC collating sequence (as shown in Figure 55).; 
similarly, the VALUE of IDENT- ASCII is the ascending ASCII collating 
sequence. The contents of ASCII-1 are moved to DN-1, and the 
contents of ASCII~2 are moved to DN-2, and DN-1 and DN-2 are then- 
useid in the two TRANSFORM statements. (This avoids the necessity of 
a second pair of TRANSFORM statements to restore the original 
contents of ASCII-1 and ASCII- 2.) 



When the two TRANSFORM statements are executed, each EBCDIC 
dharacter is exchanged for another EBCDIC character that occupies 
the original ASCII character's position in the ASCII collating 
sequence. 'Thus, whert the comparison is made, it is valid for the 
ASCII collating sequence. 

(Note that if ASCII-1 and ASCII-2 are restricted to mixed alphabetic 
and numeric characters, then the VALUE clauses in IDENT-EBCDIC and 
IDENT-ASCII need only cor»tain alphabetic and numeric characters from 
the collating sequences. Note too that in the VALUE clause when 
quotation marks (") are used as delimiters, then the quotation mark 
i|tself cannot; be one of the literals contained within the delimiter; 
sitmilarly, if; the apostrophe (') is used as the delimiter, then the 
a^f|.|cpp^e <:*hnoi|; |)ei contained within the delimiter.) 




77 . ^DPf-1 ^... ; I'll 



psocEDUi^E Dividiai*' 



I 



transform" DN-1 ERoIWi .ItP^l-l-^^fiECtDIO 



: ^ t I' J I I " f 1 1'« M pr,n n.if It i i!is ',< 



TEST-ASCII, . , i I 5 4 n i * M riW l-il i ,-. 1 M I i M 41 -fT'^H 1-4 |V i W i'iS** 

MOVE hscxi-^x .TO pPHt.' ^ p } rJ [I : " }m imiiu illl't|i|%'i ;l 



TRANSFORM DN-2 FROM ;m4n'a*^'BCtet! fl^ ifi^BW^ESC^I^Il.; 1 '• .l ^ ;^J J 
IF DN-1 IS NOT IsESS ;THA« ' pH-2 | t ^ ^ i ^ _ > H | |C|H ^ J 



PERFORM PROCESS-1 

ELSE PEJ^FORM PRiCBSJI-*£^» 



I 4 . ^1 



J PROCESS-1. 



PROCESS- 2. 



Figure 5^*. 






t I 



■t 



Using the TRANSFORM Stateift^tit Witt^ A^CII 
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EBCDIC Collating Sequence 



ftSCII Collating Sequenc e 



1. 
2. 
3. 

4. 

5. 

6. 

7. 

8. 

9. 
10. 
11. 
12. 
13. 



(space) 

(period, decimal point) 
< (less than) 
( (left parenthesis) 



15. = 

16. " 



17-42. 

43-52. 

Figure 5 



(plus symbol) 

(currency symbol) 

(asterisk) 

(right parenthesis) 

(semicolon) 

(hyphen, minus symbol) 

(stroke, virgule, slash) 

(comma) 

(greater than) 

\m. 

(equal sign) 
(quotation mark) 



A. through Z 
through 9 




1 1- 




(space) 


1 2. 


n 


(quotation mark) 


1 3. 


$, 


(currency symbol) 


1 5. 


( 


(left parenthesis) 


1 6. 


) 


(right parenthesis) 


1 7. 


* 


(asterisk) 


1 8. 


+ 


(plus symbol) 


1 9. 


r 


(comma) 


|10. 


- 


(hyphen, minus symbol) 


111. 


. 


(period, decimal point) 


|12. 


/ 


(stroke, virgule, slash) 


|13- 


22. 


through 9 


|23. 


r 


(semicolon) 


124. 


< 


(less than) 


125. 


=: 


(equal sign) 


|26. 


> 


(greater than) 


|27- 


52. 


A through Z 



EBCDIC and ASCII Collating Sequences for COBOL 
Characters — in Ascending Order 



IV — SORT FEATURE 



For ASCII- collated sorts, there are special considerations in the 
Environment Division and in the Data Division. 



ENVIRONMENT DIVISION 



For ASCII- collated sorts, there are special considerations for the 
ASSIGN clause 



ASSIGN Clause 



The ASSIGN clause for an ASCII collated sort has the same format as 
for an EBCDIC collated sort. However, the system- name must be in 
the following format: 

SYSnnn-class-device-C-name 

The following considerations apply: 

SYSnnn must specify the fixed sort work units assigned to the 
sort-file. The first work unit for every sort-file in the program 
must be assigned to SYSOOl, the second to SYS002, etc. 

class may be specified as UT or DA. 
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device may specify a utility or mass storage device. 

C in the organization field specifies an ASCII collated sort. 

name specifies the external-name by which the sort-file is known to 
the system. If the file has standard labels, the name field must be 
specified as SORTWKl for SYSOOl, S0RTWK2 for SYS002, etc. 

Note : For an ASCII-collated sort, the buffer offset field is not 
permitted. 




DATA DIVISION 



I, there are special considerations for the 
USAGE caluse. 




la ^ortf fey , 
.SsIGN dlajisa 



■;-,.»«•{ ■- 



3Cia-coll.a±jw5. JsorS>,; .tS^e' SSt'iA'RKrEj ^p^'icai "b/E^ *t|hi!ei ■"; • ; 



.-ed 



USAGE Clause 



If an ASCII-collated sort is requested, the sort keys must be 
DISPLAY items, explicitly or implicitly. 
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APPENDIX F: SYMBOLIC DEBUGGING FEATURE 



A programmer using IBM Full American National Standard COBOL, 
Version 3, under the Disk Operating System, has several methods 
available to him for testing and debugging his programs. Use of the 
symbolic debugging feature is the easiest and most efficient method 
for testing and debugging and is described in detail in this 
appendix. 

The symbolic debug option produces a symbolic formatted dump of 
the object program's data area when the program abnormally 
terminates. It also enables the programmer to request dynamic dumps 
of specific data-names at strategic points during program execution. 
If two or more COBOL programs are link edited together and one of 
them terminates abnormally, the program causing termination and any 
callers compiled with the symbolic debug option, up to and including 
the main program, will be given a formatted dump. 

The abnormal termination dump consists of the following parts: 

1. Abnormal termination message, including the number of the 
statement and of the verb being executed at the time of an 
abnormal termination. 

2. Selected areas in the Task Global Table. 

3. Formatted dump of the Data Division including: 

(a) for an SD, the card number, the sort-file-name, the type, 
and the sort record. 

(b) for an FD, the card number, the file-name, the type, SYSnnn, 
DTF status, the contents of the Pre-DTF and DTF in 
hexadecimal, and the fields of the record. 

(c) for an RD, the card number, the report-name, the type, the 
report line, and the contents of PAGE-COUNTER and 
LINE-COUNTER if present. 

(d) For an index- name, the name, the type, and the contents in 
decimal . 

Note : For DTFDA when ACCESS IS RANDOM, the actual key is not 
provided in the Pre-DTF. 

Operation of the symbolic debug option is dependent on 
object-time control cards placed in the input stream. These cards 
are discussed below. 



Object-Time control Cards 

The operation of the symbolic debug option is determined by two 
types of control cards: 

Program-control card — required if abnormal termination and/or 
dynamic dumps are requested. 
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Line-control card — required only if dynamic dumps are 
requested. 

Program-Control Cards ; h prog ram- control card must be present at 
execution time for any program requesting symbolic debugging. A 
program-control card must contain the following information: 

The 1-8 character program-name of the COBOL program compiled 
using symbolic debugging. 

The logical unit and file-name assigned to the file produced at 
compile time on SYS005. 

Additional optional parameters can also be specified: 

An entry used to provide a trace of a program-name when several 
programs are link edited together. Each time the specified 
program is entered, its program name is displayed. 

Two formats of the Data Division area in the abnormal 
termination dump are allowed: 

1. Level-01 items are provided in hexadecimal. Items 
subordinate to level-01 items are printed in EBCDIC if 
possible. Level-77 items are printed both in hexadecimal 
and EBCDIC. 

2. Level-77 items and items subordinate to level- 01 items are 
provided in EBCDIC. If these items contain unprintable 
characters, hexadecimal notation is provided. This is the 
default option. 

Line-Control Cards : A line-control card must contain the following 
information: 

The card number associated with the point in the Procedure 
Division at which the dynamic dump is to be taken. The number 
specified is the compiler-generated card number. 

Additional optional parameters can also be specified: 

The position of the verb in the specified line number at which 
the dynamic dump is to be taken. When the verb position is not 
specified, the first verb in the line is assumed. Any verb 
position not exceeding 15 may be specified. 

An equivalent to the COBOL statement "ON n AND EVERY m UNTIL k 
...". This option limits the request dynamic dumps to 
specified times. For example "ON n" results in one dump, 
produced the nth time the line number is reached during 
execution. "ON n AND EVERY m" results in a dump the first time 
at the nth execution of the specified line number, and 
thereafter at every mth execution until end-of-job. 

Two formats of the Data Division areas displayed in the dynamic 
dump are allowed: 

1. Level-01 items are provided in hexadecimal. Items 
subordinate to level-01 items are provided in EBCDIC, if 
possible. Level-77 items are provided both in hexadecimal 
and EBCDIC. 

2. Level-77 items subordinate to level-01 items are provided 
in EBCDIC. If these items contain unprintable characters, 
hexadecimal notation is provided. Note that if a group 
item is specified, neither the group nor the elementary 
items in the group are provided in hexadecimal. This is 
the default option. 
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Selected areas of tne Data Division to oe dumped. A single 
data-name or a range of consecutive data-names can be 
specified. (If the programmer wishes to see a subscripted 
item, he specifies the name of the item without the subscript; 
this results in a dump of every occurrence of the subscripted 
item. ) 



A dump of everything that would be dumped in the event of an 
abnormal termination can also be specified. This allows the 
programmer to receive a formatted dump at normal end-of-job. 
To do this, the programmer must specify the generated statement 
number of the STOP RUN, GOBACK, or EXIT PROGRAM statement. 



Sample Program — TESTRUN 

Figure 57 is an illustration of a program that utilizes the 
symbolic debugging features. In the following description of the 
program and its output, letters identifying the text correspond to 
letters in the program listing. 

(^ Because the SYMDWP option is requested on the CBL card, the 
^"^^ logical unit SYS005 must be assigned at compile time. 

^B^ The CBL card specifications indicate that an alphabetically 
ordered cross-reference dictionary, a flow trace of 10 
procedures, and the symbolic debug option are being requested. 

^C^ An alphabetically ordered cross-reference dxctionary of 

data-names and procedure-names is produced by the compiler as a 
result of the SXREF specification on the CBL card. 

^D^ The file assigned at compile time to SYS005 to store SYKDMP 
information is assigned to SYS009 at execution time. 

The SYMDMP control cards placed in the input stream at 
execution time are printed along with any diagnostics. 

(l) The first card is the program-control card where: 

(a) TESTRUN is the PROGRAM-ID. 

(b) 9 is the logical unit to which the SYMDMP file is 

assigned. 

(c) MT indicates that the SYMDMP file is on tape. 

(d) (HEX) indicates the format of the abnormal termination 

dump. 

(2^ The second card is a line-control card which requests a 
(HEX) formatted dynamic dump of COUNT, i^AME-FIELD, 
NO-OF-DEPENDENTS, and RECORD-NO prior to the first and 
every fourth execution of generated card numoer 71. 

(3^ The third card is also a line-control card which requests a 
(HEX) formatted dynamic dump of WORK-RECORD and B prior to 
the execution of generated card number 80. 

(f) The type code combinations used to identify data-names in 
abnormal termination and dynamic dumps are defined. Individual 
codes are illustrated in Figure 56. 

(g) The dynamic dumps requested by the first line-control card. 

Appendix F: Symbolic Debugging Feature 365 



The dynamic dumps requested by the second line- control card. 

(\l) Program interrupt information is provided by the system when a 
program terminates abnormally. 

(j) The statement number information indicates the number of the 
verb and of the statement being executed at the time of the 
abnormal termination. The name of the program containing the 
statement is also provided. 

A flow trace of the last 10 procedures executed is provided 
because FLOW=10 was specified on the CBL card. 

(l\ Selected areas of the Task Global Table are provided as part of 
the abnormal termination dump. 

For each file- name, the generated card number, the file type, 
SYSnnn, the DTF status, and the fields of the Pre-DTF and DTF 
in hexadecimal are provided. 

The fields of records associated with each FD are provided in 
the format requested on the program-control card. 

(p^ The contents of the fields of the Working-Storage Section are 
provided in the format requested on the program-control card. 

^Q^ The values associated with each of the possible subscripts are 
provided for data items described with an OCCURS clause. 

(r) Asterisks appearing within the EBCDIC representation of the 
value of a given field indicate that the type and the actual 
content of the field conflict. 

Note: When using the symbolic debugging option, level numbers 
appear "normalized" in the symbolic dump produced. For example, a 
group of data items described as: 

01 RECORDA. 

05 FIELD-A. 

10 FijiLD-Al PIC X. 
10 FIELD-A2 PIC X. 

will appear as follows in symbolic debugging output: 

01 RECORDA. . . 

02 FIELD-A. . . 

03 FIELD-Al... 
03 FIELD- A2.. . 



Debugging TESTRUN 



1. Referring to the statement number information J provided by 
the symbolic debug option, it is learned that the abend 
occurred during the execution of the first verb on card 80. 

2. Generated card number 8 contains the statement COMPUTE B = B + 
1. 

3. Verifying the contents of B at the time of the abnormal 
termination R it can be seen that the usage of B (numeric 
packed) conflicts with the value contained in the data area 
reserved for B (numeric display) . 
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4. The abnormal termination occurred while trying to perform an 
addition on a display item. 



More complex errors may require the use of dynamic dumps to 
isolate the problem area. Line^control cards are included in 
TESTRUN merely to illustrate how they are used and the output they 
produce. 



Code 



Meaning 



A I 

E ! 

D 1 

E I 

* I 



Binary 

Display 

Edited 

Subscripted Item 



N 

s 

OT I 

.SL;. iii':- V ;;:<;{•, 
ST- .-• ► -4-, 



Numeric 




Signed 

Oyerpunch Sign Trailing 




Figure 56. Individual Type Codes Used in SYMDMP Output 



// JOB DEBUGL 

// OPTION NODECK, LINK, LIST, LISTX.SYM, ERRS 

// A3SGN SYS005,X'183' 

// EX£C FCOBOL 



Figure 57. Using the Symbolic Debugging Features to Debug the 
Program TESTRUN (Part 1 of 11) 
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IBM DOS R.MFRICAN NATIONAL STANDARD COBOL VERSION 3 R£L 3.0 PP .'^O. 5736-C32 



20.3h.27 OU/27/73 



CBL SXREF , FL0W=1 , S YMDKP , QUOTE , SEQ 



---<D 



00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 

oooia 

00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
00053 
00054 
00055 
0C056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
0007b 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 



000010 IDENTIFICATION DIVISION. 

000020 PROGRAM-ID. TESTRUN. 

000030 AUTHOR. PROGRAMMER NAhE. 

INSTALLATION. NEW YORK DEVELOPMENT CENTER. 
DATE-WRITTEN. APRIL 18,1973. 
DATE-COMPILED. 04/27/73. 
REMARKS. THIS PROGRAM HAS BEEN WRITTEN AS A SAMPLE PROGRAM FOR 

COBOL USERS. IT CREATES AN OUTPUT FILE AND READS IT BACK 

AS INPUT. 
000100 

000110 ENVIRONMENT DIVISION. 
000120 CONFIGURATION SECTION. 
000130 SOURCE- COMPUTER. IBM-360-H50. 
000140 OBJECT-COMPUTER. IBM-360-ri50. 
000150 INPUT-OUTPUT SECTION. 
000160 FILE-CONTROL. 

000170 SELECT FILE-1 ASSIGN TO SYS008-UT-2400-S. 
000180 SELECT FILE-2 ASSIGN TO SYS008-UT-2400-S. 
000190 

000200 DATA DIVISION. 
000210 FILE SECTION. 
000220 FD FILE-1 

LABEL RECORDS ARE OMITTED 

BLOCK CONTAINS 5 RECORDS 

RECORDING MODE IS F 

RECORD CONTAINS 20 CHARACTERS 

DATA RECORD IS RECORD-1. 

RECORD-1 . 

05 FIELD-A PIC X(20). 

FILE-2 

LABEL RECORDS ARE OMITTED 

BLOCK CONTAINS 5 RECORDS 

RECORD CONTAINS 20 CHARACTERS 

RECORDING MODE IS F 

DATA RECORD IS RECORD- 2. 

RECORD- 2 . 

05 FIELD-A PIC X(20). 
000370 WORKING-STORAGE SECTION. 
000380 01 FILLER. 

02 KOUNT PIC S99 COMP SYiJC. 

02 ALPHABET PIC X(26) VALUE "ABCDEFGHIJKLMNOPi^RSTUVWXYZ" . 

02 ALPHA REDEFINES ALPHABET PIC X OCCURS 2b TIMES. 

02 NUMBR PIC S99 COMP SYNC. 

02 DEPENDENTS PIC X(26) VALUE "01234012340123401234012340". 

02 DEPEND REDEFINES DEPENDENTS PIC X OCCURS 2b TIMES. 

WORK-RECORD. 

05 NAME-FIELD PIC X. 

05 FILLER PIC X. 

05 RECORD-NO PIC 9999. 

05 FILLER PIC X VALUE IS SPACE. 

05 LOCATION PIC AAA VALUE IS "NYC". 

05 FILLER PIC X VALUE IS SPAC2. 

C5 NO- OF- DEPENDENTS PIC XX. 

05 FILLER PIC X(7) VALUE IS SPACES. 
01 RECORDA. 

02 A PICTURE S9(4) VALUE 1234. 

02 B REDEFINES A PICTURE S9(7) COMPUTATIONAL- 3 . 
000550 PROCEDURE DIVISION. 
BEGIN. 

NOTE THAT THE FOLLOWING OPENS THE OUTPUT FILE 

TO BE CREATED AND INITIALIZES THE COUNTERS. 
STEP-1. OPEN OUTPUT FILE-1. MOVE ZERO TO KOUNT, NUMBR. 

NOTE THAT THE FOLLOWING CREATES INTERNALLY THE 

RECORDS TO BE CONTAINED IN THE FILE, WRITES THEK 

ON TAPE, AND DISPLAYS THEN ON THE CONSOLE. 
STEP-2. ADD 1 TO KOUNT, NUMBR. MOVE ALPHA (KOUNT) TO 

NAME-FIELD. 

MOVE DEPEND (KOUNT) TO NO-OF-DEPENDENTS. 
000660 MOVE NUMBR TO RECORD-NO. 

STEP-3. DISPLAY WORK-RECORD UPON CONSOLE. 

WRITE RECORD-1 FROM WORK-RECORD. 
SrEP-4. PERFORM STEP-2 THRU STEP-3 

UNTIL KOUNT IS EQUAL TO 26. 

NOTE THAT THE FOLLOWING CLOSES THE OUTPUT FILE 

AND REOPENS IT AS INPUT. 
000720 STaP-5. CLOSE FILE-1. OPEN INPUT FILE-2. 

NOTE THAT THE FOLLOWING READS BACK THE FILE 

AND SINGLES OUT EMPLOYEES WITH NO DEPENDENTS. 
STEP-6. READ FILE-2 RECORD INTO WORK-RECORD AT END GO TO STEP-8. 

COMPUTE B = B + 1. 
STEP-7. IF NO-OF-DEPENDENTS IS EQUAL TO "0" MOVE "Z" TO 

NO-OF-DEPENDENTS. EXHIBIT NAMED WORK-RECORD. 

GO TO STEP-6. 
000780 STEP-8. CLOSE FILE-2. 
000790 STOP RUN. 



000230 
000240 
000250 
000255 
000260 
000270 01 

000290 FD 

000300 

000310 

000320 

000330 

000340 

000350 01 



000420 



000450 01 

000460 

000470 

000480 

000490 

000510 
000520 



Figure 57. Using the Symbolic Debugging Features to Debug the 
Program TESTRUN (Part 2 of 11) 
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DNM=l-m8 
DNM=1-179 
DNM=l-200 
DNM=1-217 
DNM=1-2U8 
DSK=l-269 
DNM=l-289 
DNM=l-308 
DNM=l-323 
DNM=l-3m 
DNM=l-359 
DNM=l-37a 
DNM=l-39lt 
DNM=1-U10 
DNM=l-431t 
DNM=l-lt5a 
DNK=l-lj73 
DNM=1-H92 
DNK=2-000 
DNM=2-018 
DNM=2-037 
DNM= 2-063 
DNM=2-082 
DNM= 2-102 
DNK=2-113 



FILE-1 

RECORD- 1 

FIELD- A 

FILE-2 

RECORD- 2 

FIELD-A 

FILLER 

KOUNT 

ALPHABET 

ALPHA 

NUMBR 

DEPENDENTS 

DEPEND 

WORK-RECORD 

NAME- FIELD 

FILLER 

RECORD-NO 

FILLER . 

LOCATION 

FILLER 

NO-OF-DEPENDENTS 

FILLER 

RECORDA 



RASE 


DISPL 


INTRNL NAME 


DEFINITION 


USAGE 


DTF=01 




DNM=l-llt8 






DTFMT 


BL=1 


000 


DNK=1-179 


DS 


OCL20 


GROUP 


BL=1 


000 


DNM=l-200 


DS 


20C 


DISP 


DTF=02 




DNM=1-217 






DTFMT 


BL=2 


000 


DNK=1-2U8 


DS 


0CL20 


GROUP 


BL=2 


000 


DNM=l-269 


DS 


20C 


DISP 


BL=3 


000 


DNM=l-289 


DS 


0CL56 


GROUP 


BL=3 


000 


DNK=l-308 


DS 


IH 


COMP 


BL=3 


002 


DHM=l-323 


DS 


26C 


DISP 


BL=3 


002 


DNK=1-31H 


DS 


IC 


DISP 


BL=3 


OIC 


DtJM=l-359 


DS 


IH 


COSP 


BL=3 


OlE 


DNM=l-37lt 


DS 


26C 


DISP 


BL=3 


OlE 


DNM=l-394 


DS 


IC 


DISP 


BL=3 


038 


DNM=l-ltlO 


DS 


0CL20 


GROUP 


BL=3 


038 


DNM=l-lt3lt 


DS 


IC 


DISP 


BL=3 


039 


DNM=1-K5lt 


DS 


ic 


DISP 


BL=3 


03A 


DNM=l-li73 


DS 


IC 


DISP-NM 


BL=3 


03E 


DNM=l-492 


DS 


IC 


DISP 


BL=3 


3F 


DNM=2-000 


DS 


3C 


DISP 


BL=3 


0K2 


DNM=2-018 


DS 


IC 


DISP 


BL=3 


0U3 


DNM=2-037 


DS 


2C 


DISP 


BL=3 


045 


DNri=2-0&3 


DS 


7C 


DISP 


BL=3 


050 


DNM=2-082 


DS 


OCLH 


GROUP 


BL=3 


050 


DNM=2-102 


DS 


tc 


DISP-NM 


BL=3 


050 


DNM=2-113 


DS 


IP 


COMP-3 



R Q M 



MEMORY MAP 




TGT 


OOltOO 


SAVE AREA 


00400 


SWITCH 


OOKKS 


TALLY 


00«4C 


SORT SAVE 


001(50 


ENTRY-SAVE 


00454 


SORT CORE SIZE 


00458 


NSTD-REELS 


0045C 


SORT RET 


0045E 


WORKING CELLS 


00460 


SORT FILE SIZE 


00590 


SORT MODE SIZE 


00594 


PGT-VN TBL 


00598 


TGT-VN TBL 


0059C 


SORTAB ADDRESS 


005A0 


LENGTH OF VN TBL 


005A4 


LNGIH OF SORTAB 


005A& 


PGM ID 


005A8 


A(INITl) 


005BO 


UPSI SWITCHES 


005B4 


DEBUG TABLE PTR 


005BC 


CURRENT PRIORITY 


005C0 


TA LENGTH 


005C1 


PROCEDURE BLOCKl PTR 


005C4 


UNUSED 


005C8 


OVERFLOW CELLS 


005CC 


BL CELLS 


005CC 


DTFADR CELLS 


005D8 


TEMP STORAGE 


005E0 


TEMP STORAGE- 2 


005E8 


TEMP STORAGE-3 


005E8 


TEMP STORAGE- t 


005E8 


BLL CELLS 


005E8 


VLC CELLS 


005EC 


SBL CELLS 


005EC 


INDEX CELLS 


005EC 


SUBADR CELLS 


005EC 


ONCTL CELLS 


005F4 


PFMCTL CELLS 


005F4 


PFMSAV CELLS 


005F4 


VN CELLS 


005F8 


SAVE AREA =2 


005FC 


XSASW CELLS 


005FC 


XSA CELLS 


005FC 


PARAK CELLS 


005FC 


RPTSAV AKEA 


00600 


CHECKPT CTR 


00600 


lOPTR CELLS 


00600 



Figure 57. Using the Symbolic Debugging Features to Debug the 
Program TESTRUN (Part 3 of 11) 
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LITERAL POOL (HEX) 



00668 (LIT+0) 
00680 (LIT+2t) 



00000001 001A1C5B 5BC2D6D7 C5D5K05B 5BC2C3D3 DbE2C55B 
5BC2C6C3 Di*EltD300 COOOOOOO 



DISPLAY LITERALS (BCD) 
0068C (LrL+36) 'WORK-RECORD' 



PGT 

DEBDG LINKAGE AREA 
OVERFLOW CELLS 
VIRTUAL CELLS 
PROCEDURE NAME CELLS 
GENERATED NAME CELLS 
SUBDTF ADDRESS CELLS 
VNI CELLS 
LITERALS 

DISPLAY LITERALS 
PROCEDURE BLOCK CELLS 



00610 

00610 
00618 
00618 
0063C 
0061tC 
00660 
00660 
00668 
0068C 
00698 



REGISTER ASSIGNMENT 



REG 6 




aL =3 










REG 7 


1 


BL =1 










REG 8 




BL =2 










WORKING-STORAGE STARTS AT LOCATION 00100 FOR A 


59 






000698 














000698 


58 FO 


C 


018 








00069C 


05 EF 












00069E 


58 FO 


c 


OIC 








0006A2 


05 IF 












0006AH 


003B 






62 






0006A6 
0006AA 


58 FO 

05 EF 


c 


018 








0006AC 


58 FO 


c 


OIC 








0006BO 


05 IF 












0006B2 


003E 






62 






000684 
0006B8 


58 FO 
05 EF 


c 


018 








0006BA 


58 20 


D 


ICC 








0006BE 


m 10 


C 


05F 








0006C2 


58 00 


D 


1D8 








0006C6 


18 HO 












0006C8 


07 00 












0006CA 


05 FO 












0006CC 


50 00 


F 


008 


♦STATISTICS^ 


» 


SOURCE RECORDS = 85 


♦STATISTICS^ 


* 


PARTITION SIZE = 495560 


♦OPTIONS 


IN 


EFFECT* 


PMAP 


RELOC 


ADR = NONE 


♦OPTIONS 


IN 


EFFECT* 


LISTX 




QUOTE 


♦OPTIONS 


IN 


EFFECT* 


NOCLIST 




FLAGW 


♦OPTIONS 


IN 


EFFECr* 


NOSTATE 




TRUKC 



I. 


15,018(0,12) 






V(ILBDDBG4) 


BALR 


14,15 








L 


15,01C(0,12) 






V(ILBDFLHl) 


BALR 


1,15 








DC 


X'003B' 








L 


15,018(0,12) 






V(ILBDDBG4) 


BALR 


14,15 








L 


15,01C(0,12) 






V(ILBDFLHl) 


BALR 


1,15 








DC 


X'003E' 








L 


15,018(0,12) 






VdLBDDBGU) 


BALR 


14,15 








L 


2,1CC(0,13) 






BL =1 


LA 


1,05F(0,12) 






LIT+7 


L 


0,108(0,13) 






DTF=1 


LR 


4,0 








BCR 


0,0 








BALR 


15,0 








ST 


0,008(0,15) 








DATA ITEMS = 25 


NO 


OF 


VERBS = 29 


LINE COUNT = 56 


BUFFER 


. SIZE = 256 


SPACI.^G 


1 


FLOW 


10 


SYM NOCATALR 


LIST 




LINK NGSTXII 


ZWE NOSUPMAP LIOXRLF 




ERRS SXREF 


SEQ 


SYMDMP NODECK 







LIS 
NOOPT 



Figure 57. Using the Symbolic Debugging Features to Debug the 
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© 



DATA NAMES 



04/27/73 
CROSS-REFERENCE DICTIONARY 
REFERENCE 



ALPHA 

ALPHABET 

B 

DEPEND 

DEPENDENTS 

FIELD-A 

FIELD-A 

FILE-1 

FILE-2 

KOUNT 

LOCATION 

NAME-FIELD 

NO-OF-DEPENDENTS 

NUMBR 

RECORD-NO 

RECORD- 1 

RECORD- 2 

RECORDA 

WORK-RECORD 



000056 
000042 
000041 
000057 
000045 
000044 
000029 
000037 
000017 
000018 
000040 
000051 
000047 
000053 
000043 
000049 
000028 
000036 
000055 
000046 



000066 



000080 
000068 



000062 000071 000076 
000076 000079 000084 
000062 000066 000068 000072 

000066 

000068 000081 

000062 000066 000069 

000069 

000071 

000079 

000070 000071 000079 000082 



© 



PROCEDURE NAMES 



REFERENCE 



BEGIN 
STEP-1 
STEP- 2 
STEP- 3 
STEP -4 
STEP- 5 
STEP- 6 
STEP-7 
STEP-S 



000059 
000062 
000066 
000070 
000072 
000076 
000079 
000081 
000084 



000072 
000072 



000083 
000079 



ERROR MESSAGE 

ILA2190I-W 
ILA5011I-W 
ILA5011I-W 



PICTURE CLAUSE IS SIGNED, VALUE CLAUSE UNSIGNED. 
HIGH ORDER TRUNCATION MIGHT OCCUR. 
HIGH ORDER TRUNCATION MIGHT OCCUR. 



ASSUMiSD POSITIVE. 



END OF COMPILATION 



// EXtC LNKEDT 



JOB 


DEBUGL 04/27/73 I 


ACTION TAKEN ^AP 




LIST 


AUTOLINK 


IJFFBZZN 


LIST 


AUTOLINK 


ILBDADRO 


LIST 


AUTOLINK 


ILBDDBGO 


LIST 


AUTOLINK 


IJJCPDVl 


LIST 


AUTOLINK 


ILBDDSPO 


LIST 


INCLUDE IJJCPDl 


LIST 


AUTOLINK 


ILBDFLHO 


LIST 


AUTOLINK 


ILBDIMLO 


LIST 


AUTOLINK 


ILBDMNSO 


LIST 


AUTOLINK 


ILBDSAEO 


LIST 


ENTRY 





DISK LINKAGE EDITOR DIAGNOSTIC OF INPUT 



Figure 57. using the Symbolic Debugging Features to Debug the 
Program TESTRUN (Part 5 of 11) 
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Olt/27/73 PHASE XFR-AD LOCORE 
PHASE*** 007000 007000 



009BD3 20 03 1 CSECT 



* UNREFERENCED SYMBOLS 



003 UNRESOLVED ADDRESS CONSTANTS 



// ASSGN SYS008,X'182' 

// ASSGN SYS009,X'183'>,t^^^>^ 

// EXEC V,^ 



ESD TYPE 


LABEL 


LOADED 


REL-FR 


CSECT 


TESTRUN 


007000 


007000 


CSECT 


IJFFEZZN 


007AC8 


007AC8 


* ENTRY 


IJFFZZZN 


007AC8 




* ENTRY 


IJFFBZZZ 


007AC8 




* ENTRY 


IJFFZZZZ 


007AC8 




CSECT 


ILBDSAEO 


009A98 


009A98 


ENTRY 


ILBDSAEl 


009aAE. 




CSECT 


ILBDMNSO 


009A90 


009A90 


CSECT 


ILBDDBGO 


007F98 


007F98 


ENTRY 


ILBDDBG5 


b08K7A 




ENTRY 


ILBDDBGit 


b084EC 




ENTRY 


ILBDDBG7 


008510 




ENTRY 


ILBDDBG2 


008262 




* ENTRY 


ILBDDBGl 


OOSOFlt 




* ENTRY 


ILBDDBG3 


0084E2 




* ENTRY 


ILEDDBG6 


008«FC 




ENTRY 


STXITPSW 


0085A8 




* ENTRY 


SORTEP 


00871(8 




CSECT 


ILBDFLWO 


0095A0 


0095A0 


ENTRY 


ILBDFLWl 


009660 




ENTRY 


ILBDFLW2 


00973C 




CSECT 


ILBDIMLO 


009A38 


009A38 


CSECT 


ILBDADRO 


007E38 


007E38 


* ENTRY 


ILBDADRl 


007E4tt 




CSECT 


ILBDDSPO 


008DC8 


006DC8 


* ENTRY 


ILEDDSSO 


008DC8 




* ENTRY 


ILBDDSSl 


009318 




* ENTRY 


ILBDDSS2 


0093B0 




* ENTRY 


ILBDDSS3 


009568 




CSECT 


IJJCPDVl 


0089F0 


0089F0 


* ENTRY 


IJJCPDV2 


0089F0 




CSECT 


IJJCPDl 


008BD0 


008BD0 


ENTRY 


IJJCPDIN 


0083D0 




* ENTRY 


IJJCPD3 


008BD0 




WXTRN 


ILBDSTNO 






WXTRN 


ILBDSRTO 






WXTRN 


ILBDTEF3 







Figure 57. Using the Symbolic Debugging Features to Debug the 
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SYMD^4P CONTROL CARDS 



(J^ TESTRUN,009,MT, (HEX) ^1 

(2) 71, ON 1,4, (HEX), KOUNT,NAKE-FIEL.D,NO-OF-DEPENDENTS, RECORD-NO \ ([) 

(3) 80, (HEX), WORK-RECORD, B ] 



NO ERRORS FOUND IN CONTROL CARDS 



NB-S 

ND 

ND-OL 

ND-OT 

ND-SL 

ND-ST 

NE 

NP 



© 



TESTRUN 
LOC 



AT CARD 000071 
CARD LV NAKE 



007100 000040 02 KOUNT 

007138 000047 02 NAME-FIELD 

007143 000053 02 NO-OF-DEPENDENTS 

00713A 000049 02 RECORD-NO 

TESTRUN AT CARD 000071 

LOC CARD LV NAME 

007100 000040 02 KOUNT 

007138 000047 02 NAME-FIELD 

007143 000053 02 NO-OF-DEPENDSNTS 

00713A 000049 02 RECORD-NO 

TESTRUN AT CARD 000071 

LOC CARD LV NAME 

007100 000040 02 KOUNT 

007138 000047 02 NAME-FIELD 

007143 000053 02 NO-OF-DEPENDENTS 

00713A 000049 02 RECORD-NO 



© 



TYPE CODES USED IN SYKDMP OUTPUT 

MEANING 

ALPHABETIC 

ALPHANUMERIC 

ALPHANUMERIC EDITED 

DISPLAY (STERLING NONREPORT). 

DISPLAY EDITED (STERLING REPORT) 

FLOATING POINT (COMP-l/COMP-2) 

FLOATING POINT DISPLAY (EXTERNAL FLOATING POINT) 

NUMERIC BINARY UNSIGNED (COMP) 

NUMERIC BINARY SIGNED 

NUMERIC DISPLAY UNSIGNED (EXTERNAL DECIMAL) 

NUMERIC DISPLAY OVERPUNCH SIGi'I LEADING 

NUMERIC DISPLAY OVERPUNCH SIGN TRAILING 

NUME'RIC DISPLAY SEPARATE SIGN LEADING 

NUMERIC DISPLAY SEPARATE SIGN TRAILING 

NUMERIC EDITED 

NUMERIC PACKED DECIMAL UNSIGNED (COMP-3) 

NUMERIC PACKED DECIMAL SIGNED 

SUBSCRIPTED 



TYPE 
NB-S 



TYPE 
NB-S 



+ 01 
0001 



+ 05 
0005 



+ 09 
0009 



Figure 57. Using the Symbolic Debugging Features to Debug the 
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TESTRUN AT CARD 000071 
LOG CARD LV NAME 

007100 OOOOKO 02 KOUNT 

007138 000047 02 LmME-FIELD 
00711*3 000053 02 NO-OF-DEPENDENTS 
00713A 000049 02 RECORD-NO 



TYPE 


VALUl 


NB-S 


+ 13 




OOOD 


AN 


M 


AN 


2 


ND 


0013 



TESTRUN AT CARD 000071 
LOC CARD LV NAME 



007100 OOOOtO 02 KOUNT 



007138 000047 02 NAME-FIELD 
007143 000053 02 NO-OF-DEPENDENTS 
00713A 000049 02 RECORD-NO 



TYPE 
NB-S 



+ 17 
0011 



TESTRUN AT CARD 000071 
LOC CARD LV NAME 



007100 000040 02 KOUNT 



007138 000047 02 NAME-FIELD 
007143 000053 02 NO-OF-DEPENDENTS 
00713A 000049 02 RECORD-NO 



TYPE 


VALUJ 


NB-S 


+ 21 




0015 


AN 


U 


AN 





ND 


0021 



TESTRUN AT CARD 000071 
LOC CARD LV NAME 



007100 000040 02 KOUNT 



007138 000047 02 NAME-FIELD 
007143 000053 02 NO-OF-DEPENDENTS 
00713A 000049 02 RECORD-NO 



® 



TESTRUN AT CARD 000080 
LOC CARD LV NAME 





000046 


01 


WORK-RECORD 


007138 








007138 


000047 


02 


NAME-FIELD 


007139 


000048 


02 


FILLER 


0C713A 


C00049 


02 


RECORD-NO 


00713L 


000050 


02 


FILLER 


00713F 


000051 


02 


LOCATION 


007142 


000052 


02 


FILLER 


007143 


000053 


02 


NO-OF-DEPEMDENTS 


007145 


000054 


02 


FILLER 


007150 


000057 


02 


B 



TYPE 


VALUl 


NB-S 


+ 25 




0019 


AN 


Y 


AN 


4 


ND 


0025 



CICIFOFO F0F140D5 E8C340F0 40404040 40404040 



AN 


A 


ND 


0001 


AN 




A 


NYC 


AN 




AN 





AN 




NP-S 


+1*2*3* 




F1F2F3C4 
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COBOL ABEND DIAGNOSTIC AIDS 



— <D 



IiiTERRUPI CODE 7 LAST PSW ADDR BEFORE ABEHD D000790E 

PROGRAI"! rESTR'JN 
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Program Product Information -^ — Version 3 



APPENDIX G: COMBINED FUNCTION CARD PROCESSING 



The IBM Systen)/370 card punch devices offer more flexible 
processing capabilities than former card devices. When equipped 
with appropriate special features, these devices can be used 
separately as a card reader, as a card punch, or as a card printer. 
Any two or all three of these functions can be combined, so that 
those functions specified are all performed during one pass of a 
card through the device. 

For any one data card, the operations, when specified, must be 
performed in the following order: read, punch, print. Any one 
function may be omitted — that is, no file need be defined for that 
function. The remaining functions must still be performed in the 
order shown. All operations on one card must be completed before 
operations on the next card are begun, or there is an abnormal 
termination of the job. When such combined function processing is 
to be used, the programmer must be aware of the special 
considerations needed to accomplish the desired results. 

COBOL handles each of the separate functions to be combined as a 
separate logical file. Each such logical file has its own file 
structure and procedural processing requirements. However, because 
such combined function files (also called associated files) refer to 
one physical unit, the user must observe certain restrictions during 
processing. The following sections explain the programming 
requirements for combined function processing in DOS American 
National Standard COBOL. 



I — ENVIRONMENT DIVISION CONSIDERATIONS 



For combined function processing there are special considerations 
for the SPECIAL-NAMES Paragraph, and for the SELECT, ASSIGN, and 
RESERVE Clauses. 



SPECIAL- NAMES Paragraph 

,^,,yi ^.^jS^^pXpiC'kBX pplBctxop ot punched output is desired, mnemonicnames 
for the purpose can be specified in the ^iPECIAL-KFAl^dES Parajgraph- 
The mn«gEnonic~nanies may be equated with the following function- names ; 

Function Name Meaning 

501 Stacker 1 (for 2560., 3525) 

502 Stacker 2 (for 2560, 3525) 

503 Stacker 3 (for 2560) 

504 S-tacker 4 (for 2560) 
305 Stacker 5 (for 2560) 
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For the 3525 device, if line control of multiline printed output is 
desired, mnemonic-names may be equated v?ith the following 
function-names : 



Function Name 
C02 
C03 
C04 



Meaning 
Line 3 
Line 5 
Line 7 



C12 



Line 23 



(Note that these function-names are not valid for 2-line 3525 print 
files, or for the 2560 print features.) 



SELECT Clause 



For each of the functions (reading, punching, printing) to be 
combined, a unique file-name must be defined. 



ASSIGN Clause 



For combined function card files, the ASSIGN clause has the 
following formats : 



SYSnnn-UR-3525 



R 
SYSnnn-UR-2560 ^ P 

w 




[-name] 



[-name] 



where nnn is a 3-digit number between 000 and 221, inclusive. Each 
of the associated logical files must be specified with the same 
SYSnnn field. (The field represents the symbolic unit to which the 
logical file is assigned. ) The name field has the same meaning it 
has for other files. 



The device and organization fields are interdependent, 
following entries are valid: 



The 



Device Organization Meaning 

3525R (V[R] read/{)rint associated file 

(reader) <X[R] read/punch/print associated file 
(y[R] read/punch associated file 

Note ; The optional R code in the 
organization field specifies RCE 
(Read Column Eliminate) card reading. 



2560R 
(reader) 



V[P] read/print associated file, primary 

input hopper 
VS read/print associated file, 

secondary input hopper 
X[P] read/punch/ print associated file, 

primary input hopper 
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Device 
2560R 
(reader) 
(continued) 



Organization 
XS 



Y[P] 



YS 



3525P 
(punch) 


1 




X 
Y 
Z 

X[P] 

XS 

Y[P] 


2560P 
(punch) 


1 




YS 
Z[P] 

zs 


3525W 
(2-line 
printer) 


\ 




V 
X 

z 

V[P] 


2560W 
(1 to 6 

line 

printer) 


j 




vs 

X[P] 
XS 




( 




Z[P] 

zs 


3525M 
(multiline 
printer) 


1 




V 
X 

z 


Note: For the 2560 device, 
combined function file stru^ 


RESERVE Clause 









Meaning 

read/punch/print associated file, 

secondary input hopper 

read/punch associated file, priiTiary 
input hopper 

read/punch associated file, 
secondary input hopper 

read/punch/print associated file 
read/punch associated file 
punch/print associated file 

read/punch/print associated file, 

primary input hopper 

read/punch/print associated file, 

secondary input hopper 

read/punch associated file, primary 

input hopper 

read/punch associated file, 

secondary input hopper 

punch/print associated file, primary 

input hopper 

punch/print associated file, 

secondary input hopper 

read/print associated file 
read/punch/print associated file 
punch/print associated file 

read/print associated file, primary 

input hopper 

read/print associated file, 

secondary input hopper 

read/punch/print associated file, 

primary input hopper 

read/punch/print associated file, 

secondary input hopper 

punch/print associated file, primary 

input hopper 

punch/print associated file, 

secondary input hopper 

read/print associated file 
read/punch/print associated file 
punch/print associated file 

input hopper specifications in one 



For a combined function structure, the files assigned to the read 
function and the punch function must each specify RESERVE NO 
ALTERNATE AREA(S)^ 

A file assigned to the print function may specify either NO or 1 
ALTERNATE AREA(S). 



II — DATA DIVISION CONSIDERATIONS 



For each logical file defined in thfe Environment Division for the 
combined function structure, there must be a corresponding FD entry 
and 01 record description entry in the File Section of the Data 
Division. 
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Ill — PROCEDURE DIVISION CONSIDERATIONS 



When combined function processing is to be used, input/output 
operations must proceed in a specified order in the Procedure 
Division. The card passes first through the reading station, next 
through the punching station, and last through the printing station. 
Therefore, the following combined functions may be specified, in the 
order shown: 



Functions to be 
Combined 

read/punch/print 



read/punch 
read/print 

punch/print 



Order of 
Operations 

read 
punch 
[print] 



Associated COBOL 
Statement 



READ , 
WRITE 
WRITE 
WRITE .., 

[AFTER ADVANCING/POSITIONING] (3525) 



AT END 

, tAl5VANCING/POSITIONI£JG3 
(2560) 



read READ .... AT END 

punch WRITE tii^VANCIl^/POSITIOliraGl 

read READ .... AT END 
[print] WRITE (2560) 
WRITE -oo 

[AFTER ADVANCING/5<?Sr33Gi;OBJIlG] (3525) 



punch WRITE **♦ 
[print] WRITE (2560)" 
WRITE .... 

[AFTER ADVANCING^ 



P (3525) 



All operations on one card must be completed before the next card 
is obtained, or there is an abnormal termination of the job. 

The following Procedure Division considerations in the COBOL 
source program apply: 



OPEN Statement 



Combined function files may be opened in any sequence. The read 
function file must be opened INPUT; the punch and print function 
files must be opened OUTPUT. All files must be opened before 
processing begins; if they are not, the job is terminated. 



READ Statement 



For combined function files, the READ statement, if the function 
is specified, must be the first input/output operation specified. A 
second READ statement must not be issued before all necessary 
combined function operations for the same card have been completed, 
or abnormal termination of the job results. 



WRITE Statement — Punch Function Files 



When the punch function is used, then after the READ statement is 
issued, the next input/output operation must be -a WRITE statement 
for the punch function file. 
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If the user v?ishes to punch additional data into some of the 
cards and not into others, he must issue a dummy WRITE statement for 
the null cards, first filling the output area with SPACES. 

If stacker selection for the punch function file is desired, the 
user can specify SOI through SOS as f unct ion- names in the 
SPECIAL-NAMES Paragraph. He can then issue WRITE ADVASCIMG 
statements using the associated mnemonic-names . Alternatively, if 
he specifies WRITE AFTER POSITIONING j, he must use the identifier-2 
option; the values placed in identifier-2 before the statement is 
issued are shown in Figure 58, Stacker selection may be specified 
only for the punch function file. 
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Figure 58. Identifier-2 Stacker Values for WRITE AFTER POSITIONINQ 



WRITE Statement — Print Function Files 



After the punch function operations (if specified) are completed, 
the user can issue WRITE statement (s) for the print function file. 

If the user wishes to print additional data on some of the data 
cards and not on others, he may omit the WRITE statement for the 
null cards. 

Any attempt to write beyond the limits of the card results in 
abnormal termination of the job; thus, the END-OF-PAGE option may 
not be specified. 

2560 DEVICE ; One WRITE statement may be issued for each card. The 
print feature allows a maximum of 64 characters per line and 6 lines 
per card; thus the maximum logical record size is 38U characters. 
Line control may not be specified (that is no WRITE 
ADVANCING/POSITIONING statements are allowed) . 

3525 DEVICE : Depending on the capabilities of the specific model in 
use, the print file may be either a 2-line print file or a 
multi-line print file. Up to 64 characters may be printed on each 
line. 

For a 2-line print file, the lines are printed on line 1 (top 
edge of card) and line 3 (between rows 11 and 12). Line control miay 
not be specified. Automatic spacing is provided. 

For a multi-line print file up to 25 lines of characters may be 
printed. Line control may be specified. If line control is not 
specified, automatic spacing is provided. 

Line control is specified by issuing WRITE AFTER ADVANCING 
statements,r-;£fir.:;5^iyE$E;:AF^EIt for the print 

function file« If line control is used for one such statement, it 
must be used for all other WRITE statements issued to the file. The 
maximum number of printable characters, including any SPACE 
characters, is 64. The first character of the record defined must 
be reserved by the programmer for the line control character; 
therefore, the record may be defined as containing up to 65 
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characters. Such WRITE statements must not specify space 
suppression- 
Identifier and intec^er have the same meanings they have for other 
WRITE AFTER ADVANCING Or WRI1*E AFTER POSITIONING statements. 
However, such WRITE statements must not increase the line position 
on the card beyond the card limits, or abnormal termination results. 

The mnemonic-name of the WRITE AFTER ADVANCING statement may also 
be specified. In the SPECIAL-NAMES Paragraph, the following 
fanct ion-names may be associated with the mnemonic-names: 

Function Name Meaning 

C05 Line 3 

C03 Line 5 

C04 Line 7 

C12 Line 23 

(See also "System/370 Card Devices" in the Procedure Division WRITE 
Statement documentation, ) 



CLOSE Statement 



When processing is completed, a CLOSE statement must be issued 
for each of the combined function files. After a CLOSE statement 
has been issued for any one of the functions, an attempt to perform 
processing for any of the functions results in abnormal termination. 
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ACCESS 
IBM AMERICAN NATIONAL STANDARD COBOL GLOSSARY 



ACCESS : The manner in which files are referenced by the computer. 
Access can be sequential (records are referred to one after another in 
the order in which they appear on the file), or it can be random (the 
individual records can be referred to in a nonsequential manner) . 

Actual Decimal Point ; The physical representation, using either of the 
decimal point characters (. or ,), of the decimal point position in a 
data item. When specified, it will appear in a printed report, and it 
requires an actual space in storage. 

ACTUAL KEY ; A key which can be directly used by the system to locate a 
logical record on a mass storage device. 

Alphabetic Character : A character which is one of the 26 characters of 
the alphabet, or a space. In COBOL, the term does not include any other 
characters. 

Alphanumeric Character : Any character in the computer's character set. 

Alphanumeric Edited Character : A character within an alphanumeric 
character string which contains at least one B or 0. 

Arithmetic Expression ; A statement containing any combination of data- 
names, numeric literals, and figurative constants, joined together by 
one or more arithmetic operators in such a way that the statement as a 
whole can be reduced to a single num.eric value = 

Arithmetic Operator : A symbol (single character or two-character set) 
which directs the system to perform an arithmetic operation. The 
following list shows arithmetic operators; 

Meaning Symbol 
Addition + 

Subtraction 
Multiplication * 
Division / 

Exponentiation ** 

Assumed Decimal Point : A decimal point position which does not involve 
the existence of an actual character in a data item. It does not occupy 
an actual space in storage, but is used by the compiler to align a value 
properly for calculation. 

BLOCK : In COBOL, a group of characters or records which is treated as 
an entity when moved into or out of the computer. The term is 
synonymous with the term Physical Record. 

Buffer ; A portion of main storage into which data is read or from which 
it is written. 

Byte ; A sequence of eight adjacent binary bits. When properly aligned, 
two bytes form a halfword, four bytes a fullword, and eight bytes a 
doubleword. 

Channel ; A device that directs the flow of information between the 
computer main storage and the input/output devices. 

Character : One of a set of indivisible symbols that can be arranged in 
sequences to express information. These symbols include the letters A 
through Z, the decimal digits through 9, punctuation symbols, and any 
other symbols which will be accepted by the data-processing system. 
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Character Set 

Charact er Set: All the valid COBOL characters. The complete set of 51 
characters is listed in "Language Considerations." 

Char acter String : A connected sequence of characters. All COBOL 
characters are valid. 

Checkpoint : A reference point in a prograna at which information about 
the contents of core storage can be recorded so that, if necessary, the 
program can be restarted at an intermediate point. 

Class Condition : A statement that the content of an item is wholly 
alphabetic or wholly numeric. It may be true or false. 

Clause: A set of consecutive COBOL words whose purpose is to specify an 
attribute of an entry. There are three types of clauses: data, 
environment, and file. 

COBOL Character : Any of the 51 valid characters (see CHARACTER) in the 
COBOL character set. The complete set is listed in "Language 
Considerations . " 

Collating Sequence : The arrangement of all valid characters in the 
order of their relative precedence. The collating sequence of a 
computer is part of the computer design — each acceptable character has 
a predetermined place in the sequence. A collating sequence is used 
primarily in comparison operations. 

COLUMN Clause : A COBOL clause used to identify a specific position 
within a report line. 

Comment ; An annotation in the Identification Division or Procedure 
Division of a COBOL source program. A comment is ignored by the 
compiler. As an IBM extension, comments may be included at any point in 
a COBOL source program. 

Compile Time : The time during which a COBOL source program is 
translated by the COBOL compiler into a machine language object program. 

Compiler : A program which translates a program written in a higher 
level language into a machine language object program. 

Compiler Directing Statement : A COBOL statement which causes the 
compiler to take a specific action at compile time, rather than the 
ODject program to take a particular action at execution time. 

Compound Condition : A statement that tests two or more relational 
expressions. It may be true or false. 

Condition ; 

• One of a set of specified values a data item can assume. 

• A simple conditional expression: relation condition, class 
condition, condition-name condition, sign condition, switch-status 
condition, NOT condition. 

Conditional Statemen t: A statement which specifies that the truth value 
of a condition is to be determined, and that the subsequent action of 
the object program is dependent on this truth value. 

Conditional Va riable: A data item that can assume more than one value; 
one or more of the values it assumes has a condition-name assigned to 
it. 

Condition Name : The name assigned to a specific value, set of values, 
or range of values, that a data item may assume. 
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Condition-name Condition 

Condition- name Condition ; A statement that the value of a conditional 
variable is one of a set (or range) of values of a data item identified 
by a condition- name. The statement may be true or false. 

CONFIGURATION SECTION : A section of the Environment Division of the 
COBOL program. It describes the overall specifications of computers. 

Connective : A word or a punctuation character that does one of the 
following: 

• Associates a data-name or paragraph-name with its qualifier 

• Links two or more operands in a series 

• Forms a conditional expression 

CONSOLE : A COBOL mnemonic-name associated with the console typewriter. 

Contiguous Items : Consecutive elementary or group items in the Data 
Division that have a definite relationship with each other. 

Control Break : A recognition of a change in the contents of a control 
data item that governs a hierarchy. 

Control -Bytes : Bytes associated with a physical record that serve to 
identify the record and indicate its length, blocking factor, etc. 

Control Data Item : A data item that is tested each time a report line 
is to be printed. If the value of the data item has changed, a control 
break occurs and special actions are performed before the line is 
printed. 

CONTROL FOOTING : A report group that occurs at the end of the control 
group of which it is a member. 

Control Group ; An integral set of related data that is specifically 
associated with a control data item . 

CONTROL - HEADING ; A report group that occurs at the beginning of the 
control group of which it is a member. 

Control Hierarchy : A designated order of specific control data items. 
The highest level is the final control; the lowest level is the minor 
control. 

Core Storage ; storage within the central processing unit of the 
computer, so called because this storage exists in the form of magnetic 
cores. 

Cylinder Index : A higher level index, always present in indexed data 
organization. Its entries point to track indexes. 

Data Description Entry : An entry in the Data Division that is used to 
describe the characteristics of a data item. It consists of a level 
number, followed by an optional data-name, followed by data clauses that 
fully describe the format the data will take. An elementary data 
description entry (or item) cannot logically be subdivided further. A 
group data description entry (or item) is made up of a number of related 
group and/or elementary items. 

DATA DIVISION ; One of the four main component parts of a COBOL program. 
The Data Division describes the files to be used in the program and the 
records contained within the files. It also describes any internal 
Working-Storage records that will be needed (see "Data Division" for 
full details) . 
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Data Item 

Data Item ; A unit of recorded information that can be identified by a 
symbolic name or by a combination of names and subscripts. Elementary 
data items cannot logically be subdivided. A. group data item is made up 
of logically related group and/or elementary items and can be a logical 
group within a record or can itself be a complete record. 

Data-name ; A name assigned by the programmer to a data item in a COBOL 
program. It must contain at least one alphabetic character. 

DECLARATIVES ; A set of one or more compiler-directing sections written 
at the beginning of the Procedure Division of a COBOL program. The 
first section is preceded by the header DECLARATIVES. The last section 
is followed by the header END DECLARATIVES. There are three options; 

1. Input/output label handling 

2. Input/output error-checking procedures 

3. Report Writing procedures 

Each has its standard format (see "Procedure Division"). 

Device -number ; The reference number assigned to any external device. 

Digit ; Any of the numerals from through 9. In COBOL, the term is not 
used in reference to any other symbol. 

DIVISION ; One of the four major portions of a COBOL program: 

• IDENTIFICATION DIVISION, which names the program. 

• ENVIRONMENT DIVISION, which indicates the machine equipment and 
equipment features to be used in the program. 

• DATA DIVISION, which defines the nature and characteristics of data 
to be processed. 

• PROCEDURE DIVISION, which consists of statements directing the 
processing of data in a specified manner at execution time. 

Division Header ; The COBOL words that indicate the beginning of a 
particular division of a COBOL program. The four division headers are: 

• IDENTIFICATION DIVISION. 

• ENVIRONMENT DIVISION. 

• DATA DIVISION. 

• PROCEDURE DIVISION. 

Division-name : The name of one of the four divisions of a COBOL 
program. 

EBCDIC Character : Any one of the symbols included in the eight-bit 
EBCDIC (Extended Binary-Coded-Decimal Interchange Code) set. All 51 
COBOL characters are included. 

Editing Character : A single character or a fixed two-character 
combination used to create proper formats for output reports (see 
"Language Considerations" for a complete list of editing characters) . 
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Elementary Item 

Elementary Item : A data item that cannot logically be subdivided. 

Entry ; Any consecutive set of descriptive clauses terminated by a 
period, written in the Identification, Environment, or Procedure 
Divisions of a COBOL program. 

Entry-name ; A programmer-specified name that establishes an entry point 
into a COBOL subprogram. 

ENVIRONMENT DIVISION : One of the four main component parts of a COBOL 
program. The Environment Division describes the computers upon which 
the source program is compiled and those on which the object program is 
executed, and provides a linkage between the logical concept of files 
and their records, and the physical aspects of the devices on which 
files are stored (see "Environment Division" for full details) . 

Execution Time ; The time at which an object program actually performs 
the instructions coded in the Procedure Division, using the actual data 
provided. 

Exponent ; A number, indicating how many times another number (the base) 
is to be repeated as a factor. Positive exponents denote multiplica- 
tion, negative exponents denote division, fractional exponents denote a 
root of a quantity. In COBOL, exponentiation is indicated with the 
symbol ♦* followed by the exponent. 

F-mode Records : Records of a fixed length, each of which is wholly 
contained within a block. Blocks may contain more than one record. 

Figurative Constant : A reserved word that represents a numeric value, a 
character, or a string of repeated values or characters. The word can 
be written in a COBOL program to represent the values or characters 
without being defined in the Data Division (see "Language Considera- 
tions" for a complete list). 

FILE- CONTROL ; The name and Header of an Environment Division paragraph 
in which the data files for a given source program are named and 
assigned to specific input/output devices. 

File Description : An entry in the File Section of the Data Division 
that provides information about the identification and physical 
structure of a file. 

File-name ; A name assigned to a set of input data or output data. A 
file-name must include at least one alphabetic character. 

FILE SECTION : A section of the Data Division that contains descriptions 
of all externally stored data (or files) used in a program. Such 
information is given in one or more file description entries. 

Floating-Point Literal : "A numeric literal whose value is expressed in 
floating-point notation — that is, as a decimal number followed by an 
exponent which indicates the actual placement of the decimal point. 

Function-name ; A name, supplied by IBM, that identifies system logical 
units, printer and card punch control characters, and report codes. 
When a function-name is associated with a mnemonic-name in the 
Enviifonment Division, the mnemonic-name can then be substituted in any 
format in which substitution is valid. 

Group Item : A data item made up of a series of logically related 
elementary items. It can be part of a record or a complete record. 

Header Label : ^ record that identifies the beginning of a physical file 
or a volume. 
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High -Order 
High-Order ; Tne leftmost position in a string of characters. 

IDENTIFICATIQH DIVISION ; One of the four main component parts of a 
COBOL program. The Identification Division identifies the source 
program and the object program and, in addition, may include such 
documentation as the author's name, the installation where written, date 
written, etc. (see "Identification Division" for full details) . 

Identifier ; h data-name, unique in itself, or made unique by the 
syntactically correct combination of qualifiers, subscripts, and/or 
indexes. 

Imperative- Statement : A statement consisting of an imperative verb and 
its operands, which specifies that an action be taken, unconditionally. 
An imperative- statement may consist of a series of imperative- 
statements. 

Index: A computer storage position or register, the contents of which 
identify a particular element in a table. 

Index D ata Item : A data item in which the contents of an index can be 
stored without conversion to subscript form. 

Index- name : A name, given by the programmer, for an index of a specific 
table. An index-name must contain at least one alphabetic character. 
It is one word (4 bytes) in length. 

Indexed Data-name : A data-name identifier which is subscripted with one 
or more index-names. 

INPUT- OUTPUT SECTIOM : In the Environment Division, the section that 
names the files and external media needed by an object program. It also 
provides information required for the transmission and handling of data 
during the execution of an object program. 

INPUT PROCEDURE : A set of Statements that is executed each time a 
record is released to the sort file. Input procedures are optional; 
whether they are used or not depends upon the logic of the program. 

Integer : A numeric data item or literal that does not include any 

character positions to the right of the decimal point, actual or 

assumed. Where the term "integer" appears in formats, "integer" must 
not be a numeric data item. 

INVALID KEY Condition : A condition that may arise at execution time in 
which the value of a specific key associated with a mass storage file 
does not result in a correct reference to the file (see the READ, 
REWRITE, START, and WRITE Statements for the specific error conditions 
involved) . 

I-0-CONTROL : The name, and the header, for an Environment Division 
paragraph in which object program requirements for specific input/output 
techniques are specified. These techniques include rerun checkpoints, 
sharing of same areas by several data files, and multiple file storage 
on a single tape device. 

KEY : One or morg data items, the contents of which identify the type or 
the location of a record, or the ordering of data. 

Key Word : A reserved word whose employment is essential to the meaning 

and structure of a COBOL statement. In this manual, key words are 

indicated in the formats of statements by underscoring > Key words are 
included in the reserved word list. 
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Level Indicator 

Level Indicator : Two alphabetic characters that identify a specific 
type of file, or the highest position in a hierarchy- The level 
indicators are: FD, SD, RD. 

Level Number : A numeric character or two-character set that identifies 
the properties of a data description entry. Level numbers- 01 through 49 
define group items, the highest level being identified as 01, and the 
subordinate data items within the hierarchy being identified with level 
numbers 02 through 49. Level numbers 66, 77, and 88 identify special 
properties of a data description entry in the Data Division. 

Library-name : The name of a member of a data set containing COBOL 
entries, used with the COPY and BA.SIS statements. 

LINKft-GE SECTION: A section of the Data Division that describes data 
made available from another program. 

Literal : A character string whose value is implicit in the characters 
themselves. The numeric literal 7 expresses the value 7, and the 
nonnumeric literal "CHARACTERS" expresses the value CHARACTERS. 

Logical Operator : A COBOL word that defines the logical connections 
between relational operators. The three logical operators and their 
meanings are: 

OR (logical inclusive — either or both) 

AND (logical connective — both) 

NOT (logical negation) 

(See "Procedure Division" for a more detailed explanation.) 

Logical Record : The most inclusive data item, identified by a level- 01 
entry. It consists of one or more related data items. 

L ow-Order : The rightmost position in a string of characters. 

Main Program : The highest level COBOL program involved in a step. 
(Programs written in other languages that follow COBOL linkage 
conventions are considered COBOL programs in this sense.) 

Mantissa : The decimal part of a logarithm. Therefore, the part of a 
floating-point number that is expressed as a decimal fraction- 

Mass Storage : A storage medium — disk, drum, or data cell — in which 
data can be collected and maintained in a sequential, direct, or indexed 
organization. 

Mass Storage File ; A collection of records assigned to a mass storage 
device. 

Mass Storage File Segment : A part of a mass storage file whose 
beginning and end are defined by the FILE-LIMIT clause in the 
Environment Division. 

Master Index : The highest level index, which is optional, in the 
indexed data organization. 

Mnemonic-name : A programmer-supplied word associated with a specific 
function-name in the Environment Division. It then may be written in 
place of the function-name in any format where such a substitution is 
valid. 

MODE : The manner in which records of a file are accessed or processed. 

IBM American National Standard COBOL Glossary 391 



Name 

Name ; A word composed of not more than 30 characters, which defines a 
COBOL operand (see "Language Considerations" for a more complete 
discussion) . 

Noncontiguous Item : A data item in the Working-Storage Section of the 
Data Division which bears no relationship with other data items. 

Nonnumeric Literal : A character string bounded by quotation marks, 
which means literally itself. For example, "CHARACTER" is the literal 
for and means CHARACTER. The string of characters may include any 
characters in the computer's set, with the exception of the quotation 
mark. Characters that are not COBOL characters may be included. 

Numeric Character : A character that belongs to one of the set of digits 
through 9. 

Numeric Edited Character : A numeric character which is in such a form 
that it may be used in a printed output. It may consist of external 
decimal digits through 9, the decimal point, commas, the dollar sign, 
etc., as the programmer wishes (see "Data Division" for a fuller 
explanation) . 

Numeric Item : An item whose description restricts its contents to a 
value represented by characters from the digits through 9. The item 
may also contain a leading or trailing operational sign represented 
either as an overpunch or as a separate character. 

Numeric Literal : A numeric character or string of characters whose 
value is implicit in the characters themselves. Thus, 777 is the 
literal as well as the value of the number 777. 

OBJECT- COMPUTER : The name of an Environment Division paragraph in which 
the computer upon which the object program will be run is described. 

Object Program : The set of machine language instructions that is the 
output from the compilation of a COBOL source program. The actual 
processing of data is done by the object program- 

Object Time ; The time during which an object program is executed. 

Operand : The "object" of a verb or an operator. That is, the data or 
equipment governed or directed by a verb or operator. 

Operational Sign : An algebraic sign associated with a numeric data 
item, which indicates whether the item is positive or negative. 

Optional Word ; A reserved word included in a specific format only to 
improve the readability of a COBOL statement. If the programmer wishes, 
optional words may be omitted. 

OUTPUT jPRQCEDURE : A set of programmer-defined statements that is 
executed each time a sorted record is returned from the sort file. 
Output procedures are optional; whether they are used or not depends 
upon the logic of the program- 
Overlap: The technique of repeatedly using the same areas of internal 
storage during different stages in processing a problem. 

PAGE : A physical separation of continuous data in a report. The 
separation is based on internal requirements and/or the physical 
characteristics of the reporting medium. 

PAGE FOOTING ; A report group at the end of a report page which is 
printed before a page control break is executed. 

PAGE HEADING : A report group printed at the beginning of a report page, 
after a page control break is executed. 
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Paragraph 

Paragraph ; A set of one or more COBOL sentences, making up a logical 
processing entity, and preceded by a paragraph-name or a paragraph 
header. 

Paragraph Header : A word followed by a period that identifies and 
precedes all paragraphs in the Identification Division and Environment 
Division. 

Paragraph-name ; A programmer-defined word that identifies and precedes 
a paragraph. 

Parameter ; A variable that is given a specific value for a specific 
purpose or process. In COBOL, parameters are most often used to pass 
data values between calling and called programs. 



Physical Record ; A physical unit of data, synonymous with a block. It 
can be composed of a portion of one logical record, of one complete 
logical record, or of a group of logical records. 

Print Group ; An integral set of related data within a report. 

Priority-Number : A number, ranging in value from to 99, which 
classifies source program sections in the Procedure Division (see 
"Segmentation" for more information) . 

Procedure ; One or more logically connected paragraphs or sections 
within the Procedure Division, which direct the computer to perform some 
action or series of related actions. 

PROCEDURE DIVISION ; One of the four main component parts of a COBOL 
program. The Procedure Division contains instructions for solving a 
problem. The Procedure Division may contain imperative-statements, 
conditional statements, paragraphs, procedures, and sections (see 
"Procedure Division" for full details) . 

Procedure-name ; A word that precedes and identifies a procedure, used 
by the programmer to transfer control from one point of the program to 
another. 

Process ; Any operation or combination of operations on data. 

Program- name : A word in the Identification Division that identifies a 
COBOL source program. 

Punctuation Character ; A comma, semicolon, period, quotation mark, left 
or right parenthesis, or a space. 

Qualifier ; A group data-name that is used to reference a non-unique 
data-name at a lower level in the same hierarchy, or a section-name that 
is used to reference a non-unique paragraph. In this way, the data-name 
or the paragraph-name can be made unique. 

Random Access ; An access mode in which specific logical records are 
obtained from, or placed into, a mass storage file in a nonsequential 
manner . 

RECORD : A set of one or more related data items grouped for handling 
either internally or by the input/output systems (see "Logical Record"). 

Record Description : The total set of data description entries 
associated with a particular logical record. 

Record-^ name ; A data-name that identifies a logical record. 

Reel ; A module of external storage associated with a tape device. 
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Relation Character 

Relation Character : A character that expresses a relationship between 
two operands. The following are COBOL relation characters: 

Character Meaning 

> Greater than 

< Less than 

= Equal to 

Relation Condition : A statement that the value of an arithmetic 
expression or data item has a specific relationship to another 
arithmetic expression or data item. The statement may be true or false. 

Relational Operator ; A reserved word, or a group of reserved words, or 
a group of reserved words and relation characters. A relational 
operator plus programmer- defined operands make up a relational 
expression. A. complete listing is given in "Procedure Division." 

REPORT : A presentation of a set of processed data described in a Report 
File. 

Report Description Entry ; An entry in the Report Section of the Data 
Division that names and describes the format of a report to be produced. 

Report File ; A collection of records, produced by the Report i^riter, 
that can be used to print a report in the desired format. 

REPORT FOOTING ; A report group that occurs, and is printed, only at the 
end of a report. 

Report Group ; A set of related data that makes up a logical entity in a 
report. 

REPORT HEADING ; A report group that occurs, and is printed, only at the 
beginning of a report. 

Report Line ; One row of printed characters in a report. 

Report- name ; A data-name that identifies a report. 

REPORT SECTION ; A section of the Data Division that contains one or 
more Report Description entries. 

Reserved Word ; A word used in a COBOL source program for syntactical 
purposes. It must not appear in a program as a user-defined operand. 

Routine : A set of statements in a program that causes the computer to 
perform an operation or series of related operations. 

Run Unit ; A set of one or more object programs that function, at object 
time, as a unit to provide problem solutions. This compiler considers a 
run unit to be the highest level calling program plus all called 
subprograms. 

S-mode Records ; Records that span physical blocks. Records may be 
fixed or variable in length. Blocks may contain one or more segments. 
A segment may contain one record or a portion of a record. Each segment 
contains a segment-length field and a control field indicating whether 
or not it is the first and/or last or an intermediate segment of the 
record. Each block contains a block-length field. 

SECTION ; A logically related sequence of one or more paragraphs. A 
section must always be named. 

Section Header ; A combination of words that precedes and identifies 
each section in the Environment, Data, and Procedure Divisions. 
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Section-name 

Section- name : A word specified by the programmer that precedes and 
identifies a section in the Procedure Division. 

Sentence : A sequence of one or more statements, the last ending with a 
period followed by a space. 

Separator ; An optional word or character that improves readability. 

Sequential Access : An access mode in which logical records are obtained 
from, or placed into, a file in such a way that each successive access 
to the file refers to the next subsequent logical record in the file. 
The order of the records is established by the programmer when creating 
the file. 

Sequential Processing : The processing of logical records in the order 
in which records are accessed. 

Sign Condition : A statement that the algebraic value of a data item is 
less than, equal to, or greater than zero. It may be true or false. 

Simple Condition ; An expression that can have two values, and causes 
the object program to select between alternate paths of control, 
depending on the value found. The expression can be either true or 
false. 

Slack Bytes ; Bytes inserted between data items or records to ensure 
correct alignment of some numeric items. Slack bytes contain no 
meaningful data. In some cases, they are inserted by the compiler; in 
others, it is the responsibility of the programmer to insert them. The 
SYNCHRONIZED clause instructs the compiler to insert slack bytes when 
they are needed for proper alignment. Slack bytes between records are 
inserted by the programmer. 

Sort File : A collection of records that is sorted by a SORT statement. 
The sort file is created and used only while the sort function is 
operative. 

Sort File Description Entr y: An entry in the File Section of the Data 
Division that names and describes a collection of records that is used 
in a SORT statement. 

Sort- file-name : A data-name that identifies a Sort File. 

Sort-key ; The field within a record on which a file is sorted. 

Sort-work-file ; A collection of records involved in the sorting 
operation as this collection exists on intermediate device(s). 

SOURCE-COMPUTER : The name of an Environment Division paragraph. In it, 
the computer upon which the source program will be compiled is 
described. 

Source Program : A problem-solving program written in COBOL. 

Special Character : A character that is neither numeric nor alphabetic. 
Special characters in COBOL include the space ( ), the period(.), as 
well as the following: 

+ -*/ = $,;-)( 

SPECIAL- NAMES : The name of an Environment Division paragraph, and the 
paragraph itself, in which names supplied by IBM are related to 
mnemonic-names specified by the programmer. In addition, this paragraph 
can be used to exchange the functions of the comma and the period, or to 
specify a substitution character for the currency sign, in the PICTURE 
string. 
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Special Register 

Special Register ; Compiler-generated storage areas primarily used to 
store information produced with the use of specific COBOL features. Ihe 
special registers are: TALLY, LINE-COUNTER, PAGE-COUNTER, CURRENT-DATE, 
TIME-OF-DAY, COM-REG, SORT-RETURN, SORT-FILE-SIZE, SORT-CORE-SIZE, 
SORT-MODE-SIZE, and NSTD-REELS. 

Standard Data Format ; The concept of actual physical or logical record 
size in storage. The length in the Standard Data Format is expressed in 
the number of bytes a record occupies and not necessarily the number of 
characters, since some characters take up one full byte of storage and 
others take up less. 

Statement : A syntactically valid combination of words and symbols 
written in the Procedure Division. A statement combines COBOL reserved 
words and programmer-defined operands. 

Subject of entry : A data-name or reserved word that appears immediately 
after a level indicator or level number in a Data Division entry. It 
serves to reference the entry. 

Subprogram : A COBOL program that is invoked by another COBOL program. 
(Programs written in other languages that follow COBOL linkage conven- 
tions are COBOL programs in this sense.) 

Subscript : An integer or a variable whose value references a particular 
element in a table. 

Switch-status Condition : A statement that an UPSI switch has been set 
to an ON or OFF condition. The statement may be true or false. 

SYSIPT: The system input device. 

SYSLST: The system output device. 

SYSPCH : The system punch device. 

SYSPUNCH : An alternate r^ame for the system punch device. 

System-name : A name, specified by IBM, that identifies any particular 
external device used with the computer, and characteristics of files 
contained within it. 

Table: A collection and arrangement of data in a fixed form for ready 
reference. Such a collection follows some logical order, expressing 
particular values (functions) corresponding to other values (arguments) 
by which they are referenced - 

Table E le ment : A data item that belongs to the set of repeated items 
comprising a table. 

Test Co ndition: A statement that, taken as a whole, may be either true 
or false, depending on the circumstances existing at the time the 
expression is evaluated. 

Trailer Label : A record that identifies the ending of a physical file 
or of a volume. 

U-mode Records : Records of undefined length- They may be fixed or 
variable in length; there is only one record per block - 

Unary Operator : An arLthmetic operator (+ or -) that can precede a 
single variable, a literal, or a left parenthesis in an arithmetic 
expression. The plus sign multiplies the value by +1; the minus sign 
multiplies the value by -1. 

UNIT : A module of external storage. Its dimensions are determined by 
IBM. 
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V-mode Records 

V-mode Records ; Records of variable length, each of which is wholly 
contained within a block. Blocks may contain more than one record. 
Each record contains a record length field, and each block contains a 
block length field. 

Variable: A data item whose value may be changed during execution of 
the object program. 

Verb : A COBOL reserved word that expresses an action to be taken by a 
COBOL compiler or an object program. 

Volume : A module of external storage. For tape devices it is a reel; 
for mass storage devices it is a unit. 

Volume Switch Procedures : Standard procedures executed automatically 
when the end of a unit or reel has been reached before end-of-file has 
been reached. 

Word: 

1. In COBOL: A string of not more than 30 characters, chosen from the 
following: the letters A through Z, the digits through 9, and 
the hyphen (-) . The hyphen may not appear as either the first or 
last character. 

2. In SYStem/360: A fullword is 4 bytes of storage; a doubleword is 8 
bytes of storage; a half word is 2 bytes of storage. 

Word Boundary ; Any particular storage position at which data must be 
aligned for certain processing operations in System/360. The half word 
boundary must be divisible by 2, the fullword boundary must be divisible 
by 4, the doubleword boundary must be divisible by 8. 

WORKING- STORAGE SECTION ; A section-name (and the section itself) in the 
Data Division. The section describes records and noncontiguous data 
items that are not part of external files, but are developed and 
processed internally. It also defines data items whose values are 
assigned in the source program. 
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(When more than one page reference is given, the major reference appears first. Entries 
ending in " (DOS/VS) " apply only to the DOS/VS COBOL implementation- All other entries 
apply both to DOS/VS COBOL and DOS Full American National Standard COBOL.) 



Special Characters 

[ (see braces) 
{ (see brackets) 

(see pound sign) 
. (see period) 
... (see ellipsis) 
< in relation conditions 158,159 
( and ) in 

arithmetic expressions 153,154 

compound conditions 162-165 

PICTURE clause 118-120 

subscripting and indexing 289-291 
+ (see plus symbol) 
$ (see currency symbol, dollar sign) 

* in 

arithmetic expressions 153,154 
intermediate results 333,334 
(see also asterisks, used in PICTURE 
clause) 

** in 

arithmetic expressions 153,154 
intermediate results 333,334 

; in Data Division and Procedure Division 
entries 109,149 
(see also semicolon) 

- (see either hyphen, or minus symbol) 

/ in 

arithmetic expressions 153,154 
intermediate results 333,334 
sterling report items 327-329 

, (see comma) 

> in relation conditions 158,159 

= in 

COMPUTE statement 182 
relation conditions 158,159 

• or " in nonnumeric literals 42,37 
(see also quotation mark) 



A, in PICTURE clause 

alphabetic item.s 120 

alphabetic symbol 118 

alphanumeric edited items 124 

alphanumeric items 120 
abbreviations 

ADD CORRESPONDING statement 181 

compound conditions 164,165 

CORRESPONDING option 17 9 

END-OF-PAGE option 213 

Identification Division Header 57,46 

JUSTIFIED clause 116 

MOVE CORRESPONDING Statement 198 

PICTURE clause 117 

relation conditions 164,165 



relational operators 158 

reserved words 40 

SUBTRACT CORRESPONDING statement 185 

SYNCHRONIZED clause 130 

TYPE clause 267 

USAGE clause 136 
absolute 

column number 269 

line spacing in a report 263-265 

values in MOVE statement 199 
ACCEPT statement 219,220 
ACCEPT statement enhancement 

(DOS/VS) xxxvi 
access methods 

direct files 60,61 

indexed files 61,62 

sequential files 60 
ACCESS MODE and VSAM capabilities 

(DOS/VS) xiv 
ACCESS MODE clause 78 

ACCESS MODE clause, VSAM (DOS/VS) vii,v 
acknowledgment 4 
actual decimal point 

description 119 

in editing 124-128 
ACTUAL KEY clause 

description and format 79-81 

READ statement 211,212 

REWRITE statement 218,219 

SEEK statement 210 

WRITE Statement 218 
ACTUAL KEY clause for 3340 (DOS/VS) xxxv 
ADD Statement 

description and formats 181,182 
addition operator 153,154 
addressing schemes 

direct 59,60 

indexed 60 

sequential 59 

VSAM (DOS/VS) iv 
algebraic value in a sign condition 162 
algorithm 

ACTUAL KEY example 336 

direct indexing 298 

intermediate results 333,334 

relative indexing 299 

slack bytes 

computational items 119 
inter- record 135,136 
intra-record 132-135 
alignment of data items 

comparisons 159,160 

decimal point 119,199 

editing 125-128 

File Section Items 131 

JUSTIFIED clause 116 
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Linkaqe Section Items 131 

PICTURE clause 119,125-128 

SYNCHRONIZED clause 13 0,131 

USING option 229 

VALUE clause 143 

Working-Storage items 131 
ALL literal figurative constant 

description 43 

MOVE statement 2 00 

relation condition 161 

STOP statement 196 
alphabetic character 118 
alphabetic class test 156 
alphabetic collating sequence 244 
alphabetic data items 

allowable symbols 120 

in a class test 156 

description 118 

internal representation 120,137 

JUSTIFIED clause 116 

MOVE statement 199,200 

relation condition 159-161 

USAGE clause 136,137 

VALUE clause 143 
alphabetized cross-reference listing 

(SXREF) 12 
alphanumeric character 119 
alphanumeric collating sequence 244 
alphanumeric data item 

allowable symbols 120 

class test 156 

description 120 

internal representation 120,137 

JUSTIFIED clause 116 

MOVE statement 199,200 

relation condition 159-161 

USAGE clause 136,137 

VALUE clause 143 
alphanumeric data item (DOS/VS) 

FILE STATUS clause, VSAM viii 

RECORD KEY clause, VSAM vii,viii 
alphanumeric edited character 124 
alphanumeric edited item 

allowable symbols 124 

description 124 

MOVE statement 199,200 

relation condition 159-161 

USAGE clause 136,137 

VALUE clause 143 
alphanumeric literals (see nonnumeric 

literals) 
ALTER statement 

and called programs 227 

in debug packets 322 

description and format 188 

effect on GO TO statement 188 

segmentation 312 

sort procedure 24 5,246 
altering characters 201-205 
altering execution sequence 187-197 
altering usage of data items 114,115 
alternative grouping of data 

REDEFINES clause 112-115 

RENAMES clause 144-146 
AND logical operator 

compound conditions 162-165 

order of evaluation 16 3 
apostrophe (see quotation mark) 



APPLY clause 

CORE-INDEX option 89 

CYL- INDEX option 8 9 

CYL-OVERFLOW option 88 

EXTENDED- SEARCH Option 87 

MASTER-INDEX option 8 9 

WRITE-ONLY option 87 

WRITE-VERIFY option 88 
APPLY CYL-OVERFLOW clause for 3340 

(DOS/VS) XXXV 
APPLY WRITE-VERIFY invalid for 3540 

(DOS/VS) XXXV 
arable numerals 122,123 
Area A and Area B in reference 

format 5 0,51 
arithmetic expressions 

characters used 153 

COMPUTE statement 182 

conditions 158 

description 153,154 

evaluation rules 154 
arithmetic operators 

description and list 153,39 

order of evaluation 153 

symbol pairs 154 
arithmetic statements 

ADD 181,182 

COMPUTE 18 2 

CORRESPONDING Option 179 

DIVIDE 18 3 

GIVING option 179 

intermediate results 333,334 

MULTIPLY 184 

overlapping operands 180 

REMAINDER option 183 

ROUNDED option 179,18 

SIZE ERROR option 180 

SUBTRACT 185,186 
ascending sequence 

ASCII character set 360 

EBCDIC character set 159,244 

sort 243,244 

table handling 293,295,296 
ascending sequence, merge 

(DOS/VS) xxv,xxvi 
ASCII considerations 355-361 
ASSIGN clause 

ASCII considerations 355,356 

description and format 69-75 

NSTD-REELS Special register 70,45 

sort 

ASCII considerations 360,361 
file in GIVING option 238,239 
sort work units 239 

system-name 70-75 

Version ^3 considerations 72-75 
ASSIGN clause (DOS/VS) 

merge facility xxii 

VSAM files v,vi 

3340 and 3540 devices xxxiv 
assumed 

decimal point 

description 119 

numeric edited items 124 

numeric items 122,123 

sterling nonreport items 325,326 

decimal scaling positions 119,122-124 

pound and shilling separators 325 
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asterisk 

arithmetic expressions 153,154 

comments 52,234 

PICTURE clause 

check protect symbol 120 
numeric edited items 124,12 8 
sterling report items 327-329 
AT END phrase 

READ statement 211,212 

RETURN Statement 248 

SEARCH Statement 3 01-305 
AUTHOR paragraph 57 
automatic 

advancing of printer page 214 

end-of-volume 212 

error procedures 175,178 

label handling 171,105 



B, in PICTURE clause 

alphan\americ edited items 124 

numeric edited items 124 

space symbol 118 

sterling report items 327-329 
BASIS card 316 

BEFORE REPORTING declarative 276,277 
binary collating sequence 244 
binary data item 

in PICTURE clause 118 

description 138,139 

internal representation 140 

MOVE statement 2 00 

relation condition 161 

SYNCHRONIZED clause 130,131 

USAGE clause 136,138-140 
blank (see space) 

BLANK clause (see BLANK WHEN ZERO clause) 
blank figurative constant (see SPACE 

figurative constant) 
blank line 

definition and use 52 

for spacing reports 265,266 
blank (space) as word separator 40 
BLANK WHEN ZERO clause 

description and format 115 

with sterling report items 329 
BLOCK CONTAINS clause 

ASCII considerations 356 

description and format 100,101 
BLOCK CONTAINS clause (DOS/VS) 

for 3540 XXXV 

VSAM ix 
block-descriptor control field 103,104 
block size 100,101 
blocked records 

APPLY WRITE-ONLY clause 87 

BLOCK CONTAINS clause 100,101 

inter-record slack bytes 135,136 

recording mode 103,104 
body print group 258-260 
boundary alignment 131-136,138 
braces and brackets in formats 53 
British Standards Institution (BSD 324 
buffer 

allocation 77 

ASCII considerations 356 

combined function processing 381 

triincation 87 



buffer allocation VSAM (DOS/VS) vi 

bypassing label processing 

LABEL RECORDS clause 105,106 
MULTIPLE FILE TAPE clause 86,87 

byte, contents of 

alphabetic and alphanumeric items 137 
binary item 138,14 
external decimal items 137,140 
external floating-point items 137,141 
internal decimal items 139,141 
internal floating-point items 138,141 



C, in sterling PICTURE 327-329 
CALL statement 

boundary alignment in 229 

description and format 226,227 

limitations with segmentation 312 

USING option 228-231 
CALL statement for 3886 OCR processing 

(DOS/VS) xxviii 
capitalized words in formats 53 
carriage control character 

definition 68 

System/370 card devices 

combined function processing 383,384 
WRITE statement 216,217 

WRITE statement 212-216 
categories of data (see PICTURE clause) 
changing description of data 

items 112-115,144-146 
character set 

arithmetic expressions 153,39 

ASCII 360 

COBOL 37 

EBCDIC 37 

editing 39 

punctuation 38 

relation-conditions 158,39 

words 37 
character string 

and item size 118 

NOTE statement 233,234 

PICTURE clause 117-121 

truncation 116 
check protect symbol (see asterisk) 
checkpoint 

description and format 8 4,85 

sort considerations 240 
class test 156 
classes of data 117 
CLOSE statement 

description and format 221-225 

OPEN REVERSED Statement 207 

random file options 224,225 

sequential file options 222-224 
CLOSE statement (DOS/VS) 

VSAM xx,xxi 

3540 device xxxvi 
CODE clause 256,257,66,67 

description and format 256,257 

SPECIAL-NAMES paragraph 66,67 
coding form, COBOL 50 
collating sequence 

ASCII 360 

EBCDIC 159,244 

for sort 244 
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COLUMN clause 269 

combined function processing 379-384 

combined function processing, 5425 

(DOS/VS) xxxvi 
comma, exchanging with period 

international considerations 330 

SPECIAL-NAMES paragraph 66,67 
comma 

in editing 124-128 

PICTURE string 119,121 

as punctuation 38 
comment-entry 

asterisk preceding 52,233,234 

DATE-COMPILED paragraph 58 

Identification Division 57,58 

NOTE statement 233,234 
comment lines 

in every division 234,52 

in Procedure Division 233,234 
common exit point for procedures 

and PERFORM statement 190 

in program 196,197 
common processing facilities, VSAM (DOS/VS) 

current record pointer x 

INTO/FROM identifier option xi 

INVALID KEY condition xi 

status key x 
communication 

operating system 

sort special registers 249 
system special registers 44,45 

operator 

ACCEPT Statement 219,220 
ASSIGN clause 69 
STOP statement 196 

sort feature 249 

subprogram 226-232 
COMP items (see binary data items) 
COMP-1 items (see short precision internal 

floating-point items) 
COMP-2 items (see long precision internal 

floating-point data items) 
COMP-3 items (see internal decimal items) 
COMP- 4 items (see binary data items) 
comparison 

index data items 300,301 

index-names 300,301 

operands 158 

in relation conditions 161 
compilation of 

copied text 313-315 

debugging packet 322 
compile- time debugging packet 322 
compiler directing statements 

BASIS 316 

COPY 313-315 

DEBUG 322 

description 152 

DELETE 316,317 

EJECT 323 

ENTER 233 

INSERT 316,317 

list of 152 

NOTE 233,234 

SKIP 323 
compiler options 

current-date 44 

quotation mark 37 



sequence checking 50 

truncation of binary items 118 
compound conditions 

description 162-165 

evaluation rules 163 

implied subjects and 
relational-operators 164,165 

logical operators 162 

permissible symbol pairs 164 

SEARCH statement 305 
COMPUTATIONAL items (see binary data items) 
COMPUTATIONAL usage 

descriptions and format 138,136 

internal representation 14 
COMPUTATIONAL- 1 items (see short precision 

internal floating-point items) 
COMPUTATIONAL- 1 and COMPUTATIONAL-2 usage 

descriptions and format 138,136 

internal representation 141 
COMPUTATIONAL-2 items (see long precision 

internal floating-point data items) 
COMPUTATIONAL- 3 items (see internal decimal 

items) 
COMPUTATIONAL- 3 usage 

description and format 139,136 

internal representation 141 
COMPUTATIONAL- 4 items (see binary data 

items) 
COMPUTATIONAL- 4 usage 

description and format 139,136 

internal representation 140 
COMPUTE statement 182 
computer-name 

OBJECT-COMPUTER paragraph 65 

SOURCE-COMPUTER paragraph 64 

System/370 instructions 65 
computer-name (DOS/VS) ii-iv 
COM-REG special register 44 
condition- name (see level number 88 items) 
condition-name condition 

description and format 157 

and SEARCH statement 305 
conditional sentence, definition 166 
conditional statement 

definition 166,150 

IF statement 166-168 

list of 151 

ON statement 320,321 
conditional variable 

assigning values to 142-144 

condition-name condition 157 

example 144 

qualification of 48,49 
conditions 

compound conditions 162-165 

PERFORM statement 

descriptions 191-195 
formats 189 

SEARCH statement 301-305 

test conditions 155-16 2 
Configuration Section 

copying 313-315 

description and format 64-67 

OBJECT-COMPUTER paragraph 65 

SOURCE-COMPUTER paragraph 64 

SPECIAL-NAMES paragraph 65-67 

and System/370 instruction 
generation 65 
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Configuration Section (DOS/VS) 

description and format ii-iv 

OBJECT-COMPUTER paragraph ii-iv 

SOURCE-COMPUTER paragraph ii 

System/37 instruction generation ii-iv 
CONSOLE 

ACCEPT statement 219,220 

DISPLAY statement 220,221 

SPECIAL-NAMES paragraph 66 
constant 

definition Ul 

figurative 43 

literal 41 
continuation area 

comment lines 52,234 

reference format 50 
continuation line 51 
continuation of 

ACCEPT operands 219,220 

comments 52,234 

DISPLAY operands 220,221 

lines 51 

nonnumeric literals 52 

NOTE statement 233,234 

numeric literals 52 

words 52 
continued line 51 

control breaks (see CONTROL clause) 
control bytes 

BLOCK CONTAINS clause 101 

inter-record slack bytes 135,136 

S-mode and V-mode records 103 
CONTROL clause 257,258 
control hierarchy 257,258 
control of sort procedures 245-247 
CONTROL report group 

CONTROL clause 257,258 

GENERATE Statement 273,274 

LINE clause 263-265 

NEXT GROUP clause 265,266 

PAGE LIMIT clause 258-260 

report group description entry 261-263 

STjmmation 272,273 

TYPE clause 267-269 
controls in report writer (see CONTROL 

clause) 
conversion of data (see data conversion) 
COPY statement 313-315 
copying 

entire program 316,317 

part of a program 313-315 
CORE-INDEX option of the APPLY clause 89 
core storage for sort 

SAME Clause 240,241 

SORT- CORE- SIZE special register 249 
CORRESPONDING option 

arithmetic statements 
ADD 181 
description 179 
SUBTRACT 185,186 

MOVE statement 198,179 
coimter updating 272,273 
CR, in PICTURE clause 

description 120,121 

numeric edited items 124,128 

sterling report items 327-329 
creating files 

direct 60,61 



indexed 61,62 

sample programs 336-338 

standard sequential 60 

(see also output files) 
creating labels 170-175 
credit symbol (see CR in PICTURE clause) 
cross-footing 272 
CSP function-name defined 66 
CURRENCY- SIGN clause 

description and format 66,67 

international considerations 330 

restriction 67 
currency symbol in PICTURE clause 

(see also CURRENCY SIGN clause) 

dollar sign 

description 120,121 

numeric edited items 124-128 

pound sign 327-329 
CURRENT-DATE special register 44 
current record pointer, VSAM (DOS/VS) ix 
cylinder overflow 88 
CYL-INDEX option, APPLY clause 89 
CYL-OVERFLOW option, APPLY clause 88 
COl through C12 function- names defined 66 



D, in sterling PICTURE clause 325-329 
data, categories of (see PICTURE clause) 
data conversion 

DISPLAY statement 220,221 

EXAMINE Statement 201,202 

first character of program-name 58 

GIVING option 179 

MOVE statement 199 

TRANSFORM Statement 203-205 
data description clauses 

BLANK WHEN ZERO 115 

data-name 111 

FILLER 111 

JUSTIFIED 116 

OCCURS 292-299 

PICTURE 116-128 

REDEFINES 112-115 

RENAMES 144-146 

SYNCHRONIZED 130,131 

USAGE 136-141 

VALUE 142-144 
data description entry 

(see also "data description clauses") 

ASCII considerations 357 

definition 108 

general formats 108,109 

indentation 97 

maximum length 108 
data description entry, VSAM (DOS/VS) ix 
data description terms 108 
Data Division 

ASCII considerations 357 

description 91-146 

organization 94 

report writer considerations 
File Section 254,255 
Report Section 256-273 

sort considerations 241,242 

structure 94 

table handling considerations 292-299 
Data Division, VSAM (DOS/VS) ix 
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data item 

assigning a value to 142-144 

definition 108 

maximurp length 108 

overlapping 

arithmetic statements 180 
MOVE statement 199 
TRANSFORM Statement 203 
data item alignment (see "alignment of data 

items " ) 
data item description entry 

description 108 

Linkage Section 98,99 

Working- Storage Section 98 
data management techniques 59-62 
data manipulation statements 

EXAMINE 201,202 

MOVE 198-200 

TRANS FORM 203-205 
data-name 

definition 41 

qualification of 48,49 

in reference format 51 
data-name clause 111 
data organization 

direct 59-60 

indexed 60 

sequential 59 

specification of 71-75 
data organization, VSAM (DOS/VS) iv 
DATA RECORDS clause 

description and format 106,107 

report writer considerations 255 

sort considerations 241,242 
DATA RECORDS clause, VSAM (DOS/VS) ix 
data reference methods 48,49 
data sets for symbolic debugging 364,365 
data transformation 203-205 
DATE-COMPILED paragraph 58 
DATE-WRITTEN paragraph 57 
DB, in PICTURE clause 

description 120,121 

numeric edited items 124-128 

sterling report items 327-329 
debit symbol (see DB, in PICTURE clause) 
DEBUG card 322 
debugging, symbolic 363-377 
debugging language 

output 318 

packet 322 

statements 

DEBUG card 322 
EXHIBIT 318-320 
ON 320,321 

READY/RESET TRACE 318 
decimal point (see period, used in a 

PICTURE clause) 
decimal point alignment 

MOVE statement 199 

period insertion character 119,124 

rounding 179,180 

size error 180 
DECIMAL-POINT IS COMMA clause 

description and format 66,67 

international considerations 330 
declaratives 

error processing 175-178 

EXIT statement in 177,17 8 



label handling 17 0-17 5 

report writer 276,277 

section 

description and format 169,150 

USE sentence 169 
defaults 

ACCESS MODE clause 78 

APPLY CYL/MASTER-INDEX clause 89 

BLOCK CONTAINS clause 101 

cylinder overflow area 88 

name- field in system-name 71 

page format in Report Writer 260 

printer spacing 214 

priority number 311 

quotation mark character 37 

record sizes in DISPLAY 220 

recording mode 103,104 

segment limit 3ll 

sequence checking 50 

truncation of binary items 118 

USAGE clause 137 
definitions of terms 385-397 
DELETE card for copying 316-317 
DELETE statement, VSAM (DOS/VS) 

description and format xx,xxi 

processing capabilities xiv 
DEPENDING ON option 

GO TO statement 

description and format 187 
maximum number of operands 187 

OCCURS clause 

description and formats 292-299 
logical record size 

considerations 102,103 
slack bytes 133-135 
SYNCHRONIZED clause 133-135 
VALUE clause 142 
depth of a report page 258-260 
descending sequence 

in sort 243,244 

in table handling 295,296 
descending sequence in merge 

( DOS/VS ) XXV , xxvi 
DETAIL report group 

description 261-263 

GENERATE Statement 273,274 

LINE clause 263-265 

NEXT GROUP clause 265,266 

SUM counters 272,273 

TYPE clause 267-269 
detail reporting 273,274 
device type specification 70 
DFR OCR macro instruction (DOS-VS) xxvii 
difference (in subtraction) 185,186 
direct access device (see mass storage 

device) 
direct data organization 59,60 
direct files 

accessing techniques 60,61 

ACTUAL KEY clause 79-81 

APPLY EXTENDED- SEARCH clause 87 

ASSIGN clause 69-7 2 

BLOCK CONTAINS clause 100,101 

error processing 175-178 

initiating access 206-208 

invalid key condition 

READ statement 211,212 
REWRITE statement 218,219 



WRITE Statement 213,217,218 

random access 78,61 

READ Statement 211,212 

recording mode 103,104 

REWRITE Statement 218,219 

sequential access 78,6 

user labels 

description 105,106 
processing 170,171 

WRITE Statement 

description 217,218 
format 213 
direct indexing 298,290 
DISPLAY Statement 220,221 
DISPLAY usage 

alignment 131 

alphabetic items 137 

alphanumeric items 137 

ASCII considerations 357 

description 136,137 

edited items 137 

numeric items 137 

SYNCHRONIZED clause 131 
DISPLAY-ST usage 325-329 
DIVIDE statement 18 3 
division, arithmetic operation 183 
division by zero 183,180 
division header 51 
division operator 153,154 
division of a program, definition 46 
DLINT OCR macro instruction 

(DOS/VS) xxviii 
dollar sign (see currency symbol, dollar 

sign) 
DOS/VS COBOL features (DOS/VS) 

FIPS flagger xxviii-xxxiii 

merge facility xxi-xxvii 

miscellaneous 
considerations xxxiv-xxxvi 

OBJECT- COMPUTER paragraph ii-iv 

VSAM file processing iv-xxi 

WHEN- COMPILED special register i 

3886 OCR processing xxvii, xxviii 
DOS/VS miscellaneous considerations 
(DOS/VS) 

ACTUAL KEY clause for 3340 xxxv 

APPLY CYL-OVERFLOW clause for 3340 xxxv 

APPLY WRITE-VERIFY invalid for 
3540 xxxv 

ASSIGN clause for 3340, 3540 xxxiv 

BLOCK CONTAINS clause for 3540 xxxv 

CLOSE statement for 3540 xxxvi 

ERROR declaratives GIVING option for 
3540 xxxv 

file processing summary xxxiv 

OPEN statement for 3540 xxxv 

sort input/ output files xxxvi 

WRITE statement for 3540 xxxvi 
double spacing 

printer page 214,215 

source program listing 323 
doubleword 

floating-point items 138 

SYNCHRONIZED clause 131 

USING operands 229 
dummy files 69 
duplication of names 48,49 



E, in 

external floating-point 

items 118,121-123 
floating-point niimeric literals 41 
EBCDIC collating sequence (Extended Binary 

Coded Decimal Interchange Code) 159,244 
editing 

insertion 

fixed 126 
floating 127 
simple 125 
special 125 
replacement 128 
sign control symbols 

description 119-121,126 
in fixed insertion editing 126 
in floating insertion editing 127 
in sterling report items 327-329 
symbols 

in alphanumeric edited items 124 
in arithmetic statements 179 
description 119-121 
in numeric edited items 124 
in SUM counter description 272 
zero suppression 128 
editing character 

description 119-121 
insertion 

fixed 126 
floating 127 
simple 125 
special 125 
zero suppression and replacement 128 
EJECT statement 323 
elementary item 

(see also data description clauses) 
description 95,96 
renaming 144-146 
slack bytes 132-135 
SYNCHRONIZED clause 130,131 
ellipsis (...) in formats 54 
ELSE option 

IF statement 166-168 
nested IF statements 167,168 
ON statement 320,321 
END DECLARATIVES. 169,150 
end of file 

when reading 212 
when sorting 248 
end of page condition 213,215 
end of volume positioning 222-224 
ENTER statement 233 
entry point 226-228 
ENTRY statement 227,228 
Environment Division 

ASCII considerations 355,356 
Configuration Section 

OBJECT- COMPUTER paragraph 65 
SOURCE -COMPUTER paragraph 64 
SPECIAL-NAMES paragraph 65-67 
Input-Output Section 

FILE- CONTROL paragraph 68-83 
I-O CONTROL paragraph 84-89 
international considerations 330 
organization 63 

segmentation considerations 311,65 
sort considerations 238-241 
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Systein/370 card devices 379-381 

Systein/370 instructions 65 
Environment Division, VSAM (DOS/VS) v-ix 
equal sign (=) 

in COMPUTE statement 182 

in relation condition 158 
equal size operands in a relation 

condition 160 
equivalents 

reserved words and abbreviations 40 

THROUGH and THRU 4 
error bytes 176,178 

error conditions, arithmetic operations 
(see arithmetic statements, SIZE ERROR 
option) 
ERROR procedure, VSAM (DOS/VS) 

(see EXCEPTION/ERROR procedure, VSAM) 
error processing declaratives 

and ACTUAL KEY 79 

description and format 175-178 

and Linkage Section 177 

with sort 245,246 

table of capabilities 178 
error processing declaratives (DOS/VS) 

GIVING option for 354 xxxv 

VSAM file processing xii,xiii 
evaluation rules 

arithmetic expressions 153 

compound conditions 163-165 

IF statements 166-168 
EXAMINE statement 

description and formats 201,202 

with sterling items 330 
EXCEPTION/ERROR procedure, VSAM (DOS/VS) 

CLOSE statement xxi 

description and format xii,xiii 

OPEN statement xv 

READ statement xvii 

WRITE statement xviii 
execution, order of 150 
EXHIBIT statement 318-320 
exit point for procedures 

error processing 176 

EXIT statement 196,197 

label handling 171 

PERFORM statement 190 

sort input/output procedures 245-249 
EXIT PROGRAM Statement 

description and format 232,231 

symbolic debugging 365 
EXIT statement 

description and format 196,197 

PERFORM Statement 190 

PROGRAM option 232,231 

with sort procedures 248,249 
explanatory comments 

in every division 52,234 

in Procedure Division 233,234 
exponent 

floating-point items 137,138 

floating-point numeric literals 41 
exponentiation operation 153,154 
Extended Binary Coded Decimal Interchange 
Code (EBCDIC) 

collating sequence 159,244 

nonnumeric literals 41 



extended search 

for direct files 87 
when reading 212 
EXTENDED- SEARCH option of the APPLY 

clause 87 
extended source program library 

facility 316,317 
external data 93 
external decimal items 
class test 156 

collating sequence for sort 244 
description 137 
internal representation 140 
MOVE statement 200 
relation condition 161 
USAGE clause 

description 137,140 
format 136 
external floating-point items 
collating sequence 244 
description 137 
internal representation 141 
MOVE statement 200 
relation condition 161 
USAGE clause 

description and format 137,136 
internal representation 141 
VALUE clause 143 
external-name in ASSIGN clause 71 



F-mode records 

description 103,104 

and OPEN REVERSED 207 

recording mode 103,104 

report print line 255 

in sort 241 

specification 104 
FD (see file description entry) 
figurative constants 

description 43 

EXAMINE statement 201,202 

MOVE statement 200 

relation condition 161 

TRANSFORM Statement 203-205 

VALUE clause 142 
file . 

definition 93 

disposition of 

CLOSE statement 221-225 
OPEN statement 206-208 

FILE-CONTROL paragraph 68-83 

file description entry 100-107 

inter-record slack bytes 135,136 

I-0-CONTROL paragraph 84-89 
FILE-CONTROL paragraph 

ACCESS MODE clause 78 

ACTUAL KEY clause 79-81 

ASSIGN clause 

description and format 69-75 
for sort 238,239 

copying 313-315 

FILE-LIMIT Clause 77,78 

format 68 

NOMINAL KEY clause 82 

PROCESSING MODE clause 78,79 

RECORD KEY clause 83 
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RESERVE Clause 77,238 

SELECT clause 

description and format 69 
for sort 238,239 

sort considerations 238,239 

TRACK- AREA clause 83 
FILE-CONTROL paragraph (DOS/VS) 

merge facility xxii 

VSAI4 files v-viii 

3340 and 3540 devices xxiv,xxv 
file description entry 

BLOCK CONTAINS clause 100,101 

description and format 100,97 

DATA RECORDS clause 

description and format 106,107 
report writer 255 

LABEL RECORDS clause 105,106 

RECORD CONTAINS clause 

description and format 102,103 
report writer 255 

RECORDING MODE clause 104,255 

REPORT clause 254,255 

report writer 254,255 

sort 241,242 

VALUE OF clause 106 
file description entry, VSAM (DOS/VS) ix 
file information area for OCR 

(DOS/VS) xxviii 
FILE-LIMIT clause 77,78 
file-name, definition 41 
file processing technique 

general description 59-62 

input/output errors 17 5-178 

sample programs 33,34,336-340 

statements and clauses 352-354 

summary 59-62,352-354 
file processing technique (DOS/VS) 

System/37 device summary xxxiv 

VSAM summary xiv 
File Section 

ASCII considerations 356,357 

boundary alignment 131 

content 97,100-107 

copying 313-315 

file description entry 97,100-107 

format 97,100 

naming data 111 

record description entry 108,109,97 

report writer considerations 254,255 

sort considerations 241,242 
file size for sort 249 

FILE STATUS clause, VSAM (DOS/VS) v,viii 
files sharing same storage area 85,86 
FILLER 

CORRESPONDING option 17 9 

inter-record slack bytes 135,136 

record description entry 111,108 
FINAL control 

CONTROL clause 257,258 
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format 117 
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sterling items 325-329 
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unary operator 153,154 
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combined function processing 379,383 
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WRITE statement 214-216 
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CLOSE statement 222-224 
MULTIPLE FILE TAPE clause 86,87 
OPEN statem.ent 206-208 
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positive value 

external floating-point items 122,123 
PERFORM statement 191 
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unsigned operands 162,199 
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pound-separator-string 327 
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report item 327,329 
representation 329 
print line size for report 255 
PRINT-SWITCH 
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INITIATE statement 275 
NEXT GROUP report groups 266 
printer support. Version 3 13 
printer support, DOS/VS 11 
priority numbers 

ALTER statement 312 
called programs 312 
description 310,311 
information for use 310 
PERFORM statement 312 
section header 310,311 
segment limit 311 
procedure branching statements 
ALTER statement 188 
EXIT statement 

description and format 196,197 
subprogram linkage 231,232 
GO TO statement 187,188 
PERFORM statement 189-195 
STOP statement 196,231 
procedure, definition 149 
Procedure Division 
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copying 313-315 
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Report Writer considerations 
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GENERATE Statement 273,274 
INITATE Statement 275 
overall 252-254 
TERMINATE Statement 275,276 
Sort considerations 
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RELEASE Statement 247,248 
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SORT statement 242-247 
statement list 151,152 



Index 415 



statements (see compiler-directing 
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imperative statements) 
sterling considerations 330 
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table handling considerations 
relation conditions 300,301 
SEARCH statement 301-305 
SET statement 3 06 
USING option on the division 
header 228-231,149,150 
Procedure Division (DOS/VS) 
merge facility xxv-xxvii 
VSAM file processing 

common processing facilities ix-xi 
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READ statement xvi,xvii 
REWRITE statement xix,xx 
START statement xv 
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index-names 290,291 
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subscripts 289,290 
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default 37 
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indexed files 61,62 

READ statement 211,212 

REWRITE statement 218,219 
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WRITE statement 213,217,218 
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random file processing 

effect of CLOSE options 224,225 

function of a read 211,212 
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range of a PERFORM statement 190-195 
range of values 
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priority numbers 310,311 
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processing 72,73,76 
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READ statement 

description and format 211,212 

error processing 178 
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processing capabilities xiv 
reading backwards 207 
reading nonstandard labels 
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MULTIPLE FILE TAPE clause 86 

OPEN statement 207 
READY/RESET TRACE statement 318 
receiving data item 

justification 116 

MOVE statement 199,200 
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naming 111 
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RECORD CONTAINS clause 
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Report Writer 255 

Sort 241,242 
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Report Writer 255 
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record size default 

ACCEPT statement 219 

DISPLAY statement 220 
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specification 104 
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RECORDING MODE clause 
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table handling 300,301 
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level number summary 96 
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editing rules 124-128 
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report, description 252-254 
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TERMINATE statement 275,276 

TYPE Clause 267-269 
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Procedure Division considerations 
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specification 256,273,274 
RERUN clause 

ASCII considerations 356,361 

processing programs 8 4,85 

sort feature 240,361 
RERUN clause, VSAM (DOS/VS) viii,ix 
required words in formats 53 
RESERVE clause 

description and format 77 

System/370 card devices 381 
RESERVE clause, VSAM (DOS/VS) v,vi 
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list of 344-346 
RESET clause. Report Writer 270,271 
RESET TRACE statement 318 
restarting a program 84,85,240 
retrieving an indexed file 

access methods 61,62 

READ Statement 211,212 
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multivolume files 6 9,70 

sort 249 
return code, VSAM status key (DOS/VS) x 
return from merge (DOS/VS) 

GIVING option xxv,xxvi 

output procedure xxv-xxvii 
return from sort 

GIVING option 247 

output procedure 2 46,247 
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RETURN statement in sort 248 
reversed reading of a file 207 
rewinding a tape file 

CLOSE statement 222-224 
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description and format 218,219 

error processing 178 
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rewriting mass storage files 218,219,60-62 
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SUBTRACT 185 
rounding 179,180 
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BLOCK CONTAINS clause 101 

description 103,104 

RECORDING MODE clause 104 
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sort considerations 240,241 
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merge facility xxii,xxiii 

VSAM files viii,ix 
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retrieval of an indexed file 339,340 

sort 250,251 

table handling 307,308 
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floating-point items) 
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flowchart 304 
section 
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SEEK statement 210 
segment classification 310,311 
SEGMENT-LIMIT clause 311 
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ALTER statement 312 
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fixed portion 309,311 
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PERFORM statement 312 

permanent segments 309,311 
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segment limit 311 
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(DOS/VS) xxvii 
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merge facility xxii 

VSAM files v,vi 
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separating statements 149 

source program 38 
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clause 129,130 
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statements 149 

sterling items 327-329 

words 40 
sequence 
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sorting 243,244 
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sequence-number-field for copying 316,317 
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indexed files 61 
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recording mode 103-104 
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sequential processing 60,61 
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processing) 
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PICTURE clause 325,327 
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relation condition 159 



SIGN clause 129,130 

sign condition 16 2 

sterling items 326-329 
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unary operator 153,154 
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description and format 129,130 
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printer page 214 
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SUBTRACT 185 
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sort enhancements (DOS/VS) xxxvi 
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OUTPUT PROCEDURE option 246,247 
RELEASE Statement 247,248 
RETURN statement 248 
USING option 246 
SORT statement enhancement (DOS/VS) xxxvi 
SORT-OPTION clause (DOS/VS) xxxvi 
SORTWKl, S0RTWK2 in sort 239 
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SOURCE- COMPUTER paragraph 64 
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reference format 5 0-52 
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COPY statement 313-315 
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DELETE and INSERT 316,317 
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BLANK WHEN ZERO clause 115 
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in editing 124-128 
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space insertion 125-128,115 
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special level numbers 96,97,108-110 
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clause 105 
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recording mode 103,104 
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error processing 178 

NOMINAL KEY 82,61~ ' 
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CALL 226,227 
ENTRY 227,228 
EXIT PROGRAM 232 
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PICTURE symbol 119,121 
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arithmetic expressions 153,154,39 
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system procedures (see standard system 
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SEARCH statement 301-305 
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sample program 307,308 
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SUM clasue 271,273 
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tape file, label handling 

CLOSE statement 222-224 

LABEL RECORDS clause 105,106 

OPEN statement 2 07,208 

READ statement 212 

USE statement 170,171 
TERMINATE statement 275,276 
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execution 196 
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report processing 275,276 

sort processing 248,249 

subprograms 231,232 
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THRU reserved word 

and PERFORM statement 18 9,190 

and THROUGH, equivalence of 40 

and VALUE clause 14 2-144 
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TRACE statement 318 
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direct file 59-61 
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ALTER statement 188 
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EXIT statement 
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operating system 231,232,196 
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PERFORM statement 189-195 

RELEASE statement 247,248 

RETURN statement 248 
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sort feature 247-249 
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ASCII considerations 358-360 
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indexing 290,291 
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REWRITE statement 218,219 
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WRITE statement 213,217,218 
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ASCII considerations 357,361 
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description and formats 136-141 
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label processing 170,171 



( 



4 22 



READ Statement 212 
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user program status indicator bits 67 
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in a calling program 226-229 
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USING option in sort (DOS/VS) xxxvi 
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example 144 
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records) 
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recording mode 103,104 
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